


















HOclíll 


ELEKTRON IK 


Urbán István mérnök áramköreinek szakűzlete 


Budapest VII., Dózsa György út 16. (Dózsa-Jobbágy sarok) 
Nyitva: H-P 10-17-ig Tel./fax: 122-8892 
(Zárás után üzenetrögzítő) 


Több, mint tíz éve írok a Rádiótechnikában, vezetem a „Zenei hobby elektronika” íejlécű rovatot. A közölt témák 
nagyrészéhez szaküzletemben - működő minta alapján - vásárolhat panelokat, részegységeket, egységcsomagokat. 


KÍNÁLATUNKBÓL: 


SZÁMÍTÁSTECHNIKA: 


C64 bővítők: egys. éleszt~| 


RT89/3 PLOFI Datasseltecartridge.... 

PLOFI Datassetteipromon. 

PLOFI Oatassetterbelp . 

RT89/10 PLOFI Fastload cartridge. 

PLOFI Fastload speedlape.... 

RT9Q/3 PLOFI Simon's cartridge . 

FINAL III cartridge. 

.1200 Ft ... 
1300 Ft .. 
.1300 Ft .. 
.1300 Ft... 
.1400 Ft... 
. 1300 Ft... 

...1500 Ft 
...1700 Ft 

1700 Ft 
...1700 Ft 
...1900 Ft 
...1700 Ft 
.. 3450 Ft 

ACTION Replay" VII. 


.. .3450 Fi 

RT89/11 Fényceruza, szoftverrel.. 

950 Ft. 

...1250 Fi 

RT90/8 Hangdigilalizáló 4 szoftver. 

..1350 Ft... 

...1650 Fi 

HE90/8 Hangkapcsoló. 

...300 Fi 


RÍ89:4 EPROM égető. 

. 3400 Ft... 

... 4500 Fi 

Égető szoftver lemezen. 

..1300 Ft 


Égetöszoftvercartridge. 

.1300 Ft... 

...1700 Ft 

User csatlakozó. 

.. .300 Ft 


RT91/3 EPROM-bank (256 Kbájt). 

.2900 Ft .. 

.4000 Ft 

RT91/10 IC teszter. 

. 3000 Ft .. 

. 4500 Ft 

RT91/7 Datassettegyorsmásoló. 

.600 Ft 


HE91/7 Datassettelejbeállíló. 

.. 350 Ft 


HE90.T2 CPU stop 4 rését. 

.400 Fi 


.PAGEFOXszövegszeikesztő. 


...3900 Ft.. 

.Mim EPROM-bank. 

2300 Fi... 

...3000 Ft 

IBM bővítők: 

egys. 

éleszt. | 

RT91/4.5 IBM IC teszter + szoftver. 5900 Ft... 

RT91/11.12 IBM EPROM-égetö 

... 9800 Ft 

+ szoftver. 

4800 Ft . 

. 9900 Fi 


RT91/6 48 csal. 1/0 kártya.3500 Ft 


HE92/2 User-Centronícs csatlakozó.950 Ft 

RT92/3 TTL IC katalógus lemezen.600 Ft 

CMOS IC katalógus lemezen.600 Ft 

Dióda katalógus lemezen__600 Ft 

Tranzisztor katalógus lemezen ...600 Ft 


ZENE - HANGTECHNIKA: 


RT87/10 Fuzz-box torzító....670 Ft 

RT90/1 KORG DST-1 torzító.1200 Ft 

.KORG DST-3 torzító.1400 Ft 

HE90/1 KORG OVERDRIVE torzító.920 Ft 

RT87/12 Vau-vau gitáreflekt.640 Ft 

RT88/9 Sztereó tremoló.980 Ft 

RT88.7 Shifter.1200 Ft 

HE90»7 Kiszajú gitáreloerősító.700 Ft 

RT89/5 Sztereóelőerösítö..1500 Ft 

HE91/12 Hangfrekvenciás erősítő.490 Ft 

RT89/8 2 x 14 W sztereó erősítő.990 Ft 

RT89/12 2 x 40 W sztereó erősítő. 1800 Ft 

RT89/1 100 W-os erősítő..1600 Ft 

RT9QÍ3 Rilmusgép32 ritmussal.2500 Ft 

RT9Q/10 Dobszintetizátor.3500 Ft 

RT88/3 Süvöltőgitáretfekt.780 Ft 

RT87/11 Ringmodulálor.995 Ft 

RT92'4 Oktávemelő.700 Ft 

.. Visszhangosító MN3005-tel.4800 Ft 


VIDEÓS TÉMÁK: 


RT92/6 RGB generátor. .1760 Ft 

RT92/11 PALkóder.1400 Ft 


FÉNYTECHNIKA: 


RT88'10 Diszkólény II (Iriak nélkül). 1400 Ft 

Diszkófény II (tríakkal).. 3000 Ft 

RT88/12 Fényorgona.. 2000 Ft 

RT90/2 Programozható futófény. 1200 Ft 

RT91/1 8x8-asfénymátrix 

+16 K EPROM.2000 Ft 

8 x 8-hoz LED panel 

10 mm-es LED-ekkel,..2000 Ft 

RT89/6 Kivezérlésjelző. 700 Ft 

RT91/8 Sziporkázó színgyürű.650 Ft 

Kétszínű LED.48 Ft 

HE91/10 Karácsonyi fényjáték.700 Ft 

HE928 KnightRiderfutófény..950 Ft 


EGYÉB HOBBI TÉMÁK: 


RT88/10 Dallamgenerátor Z80-nal. 1500 Ft 

HE91/1 Dallamgenerátor UM3481 -84.800 Ft 

HE91/5 Dallamgenerátor LIM66Txx..480 Ft 

HE91/4 Beszédfelismerő VCP200-zal.750 Ft 

VCP200. 1950 Ft 

H E91 /2 Kutyaugatás szintetizátor.800 Fi 

RT91/8 Eb-vezérlő.400 Fi 

HE91/6 Szúnyogriaszló.700 Ft 

HE91/9 Multisziréna.480 Ft 


Az árak a 25% ÁFA-t tartalmazzák! 


Választékunk folyamatosan bővül! A Rádiótechnikában, a Hobby Elektronikában megjelent 
nyák-tervek alapján készült nyomtatott áramköri lapok az üzletben megvásárolhatók. 



Állandóan változó készlet! 


MŰSZERVÁSÁR 

Bontott anyagok, 
használt műszerek 
böngészdéje 


Vidéki olvasóknak segít a szerző levelező, egységcsomagküldő 
szolgáltatása: a megrendelt csomagot postán utánvéttel 
elküldöm. Telefonon/faxon és levélben is rendelhet. 

A HOBBI ELEKTRONIKÁ-hoz nem kell hosszú levél. Rendelését 
néhány sorban, egyértelműen közölje. 

Levélcím: 1656 Budapest Pf. 50. 


Az üzletben megvásárolhatók az RT évkönyvei, a Rádiótechnika és a Hobby Elektronika korábbi számai. 






















































































































EGYESÜLET 



MIT, HOGYAN, HOL, MIKOR? 

EGYESÜLETI ÜGYEK: Egyesületünknek tagja lehet min¬ 
denki, aki a tagsági díjat befizeti. A tagdíjat személyesen az 
egyesület irodájában (1025 Budapest, Vöröstorony utca 29. 
Telefon: 1-76-22-57), vagy átutalással az MNB 217-98 292, OTP 
565-3610-8 számlára lehet befizetni. Megrendelés esetén szám¬ 
lát küldünk. 

Pötyögőszolgálatunk valamint a szervizkedvezmény és az 
apróhirdetés lehetősége tagjaink rendelkezésére áll. 

A DEÁKPÁHOLY tagjai minden hónapban megkapják a 
C-újságot, a tagsági díj egy egy évre 890 Ft. 

A PLUSZPÁHOLY tagjai minden hónapban megkapják a 
C-újságot, és kapnak havonta 3 db vásárlási utalványt. A tagsági 
díj egy évre 2050 Ft. 

A SZUPERPÁHOLY tagjai havonta 15 példányt kapnak a 
C-újságból, és ezzel havonta 15x3 db vásárlási utalványt is. Az 
éves tagsági díj 24 000 Ft. 

ÜGYFÉLFOGADÁS: Minden kedden és csütörtökön 12—16 
óra között várjuk tagjainkat és az érdeklődőket. 
PÖTYÖGŐSZOLGALAT: Az újságban megjelenő programo¬ 
kat másolja a megrendelők részére. Megrendelhető személyesen 
az egyesület irodájában vagy postai utánvéttel. Postacím: 1388 
Budapest 62., Postafiók: 86. 

APRÓHIRDETÉS: Az egyesületi tagoknak ingyen áll rendel¬ 
kezésére. Nem tagoknak a hirdetés ára 100 forint. A hirdetés 
módja: az újságban megjelenő nyomtatvány kitöltésével. 

A C-ÚJSÁG RÉGEBBI SZÁMAI megvásárolhatók az egyesü¬ 
let irodájában, vagy megrendelhetők utánvéttel. 

Kedvezményes ár! Tágoknak olcsóbb! 

Az újságban eddig megjelent programok gépenként össze¬ 
gyűjtve megrendelhetők. VC 20, C16, PLUS/4, C128, C64. To¬ 
vábbi felvilágosítást is adunk a 1-76-22-57-es telefonszámon vagy 
levélben! 

Vidéki pluszpáholy-tagjaink háromhavi tikett összegyűjté¬ 
sekor igénybe vehetik a NOVOTRADE 2C Áruház csomagküldő 
szolgálatát. 

VIDÉKEN TOVÁBBI INFORMÁCIÓK KAPHATÓK: 

Baja, AXIS Kft., 

Győri Bartók Béla Művelődési Ház, 

Jászberényi Városi Könyvtár, 

Kecskemét, SZIGMA—BIT, 

Pécsi Apáczai Csere János Gimnázium, 

Zalaegerszegi Ságvári Endre Gimnázium. 


Az Országos Commodore Egyesület módszertani kiadványa 

Egyesületi iroda és szerkesztőség: 

1025 Budapest, Vöröstorony utca 29. Telefon: 1-76-22-57 
Felelős kiadó: Horváth Judit, az egyesület elnöke 
Főszerkesztő: Rados Péter, az OCE főtitkára 
Felelős szerkesztő: dr. Horváth András 
Művészeti szerkesztő: Bausz Sándor \ 

Levélcím: Commodore Újság, 1389' Budafiest, 62. PL: 86. 
Index: ISSN 0237-756 X / 

Terjeszti a Magyar Posta 
Megvásárolható a hírlapárusoknál 
93.0161 MSZH Nyomda és Kiadó Kft., Budapest 
Felelős vezető: Nagy László 


Az Országos Commodore Egyesület pályázatot hirdet. 
A pályázaton bárki részt vehet. A pályázat tárgya: 
C64-en vagy C+4-en futó, saját készítésű felhasználói 
program. A program a gép saját BASIC nyelvén ké¬ 
szüljön, terjedelme ne haladja meg a 300 sort. A prog¬ 
ramot kérjük lehetőleg lemezen (esetleg kazettán) be¬ 
küldeni. A pályázatnak tartalmaznia kell a program 
felhasználói útmutatóját, valamint a program belső 
működését ismertető leírást. 

A pályázat helyezettjei számítógépeket és tartozé¬ 
kokat nyernek. 

A pályázat beküldési határideje: 1993. szeptember 20. 

A pályaműveket kérjük az egyesület postacímére: 
1388 Budapest 62, Postafiók 86. eljuttatni. A borí¬ 
tékra írják rá: „Alkalmazói program pályázat” 

Pályázatunknak nem titkolt célja, hogy egyesület tagjai és 
a lap olvasói olyan programokkal lepjék meg egymást, 
melyeket az iskolában, otthon, munkahelyen, kisvállalko¬ 
zásban jól tudnak használni. A programok használhatóságát 
nagymértékben meghatározza a dokumentáció minősége. 
Ezért felhívjuk pályázóink figyelmét az 1993/4-es számunk 
„Még többet ésszel” rovatában leírtakra. 

Országos Commodore Egyesület 


tulajdonosok! 

Várunk benneteket az Országos Commodore 
Egyesület klubdélelőttjén a Havanna Közösségi 
Házban minden hónap 3. vasárnapján, délelőtt 9 
órától. Gépet és hosszabítót hozzatok! 

Cím: 1181 Budapest, Kondor Béla sétány 8. 
Megközelíthető: a metró kőbánya-kispesti végál¬ 
lomásától a piros 136-os busszal. 

Legközelebb: 

július 18-án, 
augusztus 15-én. 


FELHÍVÁS 

Tisztelt Tagtársunk, Olvasóink! 

Kérjük, hogy ha rendelkeznek olyan működő számító¬ 
géppel, vagy jó állapotban lévő bármilyen számítógép¬ 
tartozékkal, amire nincs szükségük, akkor hozzák cl 
egyesületi irodánkba (minden héten kedden és csütörtö¬ 
kön II — 15 óra között). 

Mi összegyűjtjük és eljuttatjuk azokat határainkon túli 
(erdélyi, kárpátaljai és szlovákiai) magyar iskolákhoz. 
Köszönettel: 

Országos Commodore Egyesület 


•AUGUSZ' 


c= 


3 













EGYESÜLET 


Tisztelt Szerkesztőség 


12 éves vagyok, és a C/64-es gépemen programozok BAS1C- 
ben. Nemrég lettem tagja a Commodore Egyesületnek, és na¬ 
gyon sok hasznát veszem a C-újságnak. 

Az 1993. évi első szám hetedik oldalán van egy program 
„Szorzótábla helyett” címmel. Ennek van egy hiányossága: vég¬ 
telen sokáig gondolkodhatunk. Az általam küldött programban 
van időkorlátozás. Használata a következő: Miután elindítottuk, 
megkérdezi mennyi időt adjak a feladat megoldására. Itt be kell 
írni a választ, és megnyomni a RETURN-t. Ezután felírja az első 
feladatot. Erre be kell írni a választ, és megnyomni a RE¬ 
TURN-t. Ha nem írtunk be időben, kiírja: lejárt az idő. Ha időn 
belül írtuk be, válaszunk után bármelyik billentyűvel kérhetjük 
a következő szorzást, kivéve a V betűvel nem, mert ekkor kiírja 
a találati arányt, és vége a programnak. 


'O 


Most röviden leírom a program szerkezetét 
100—160 Megkérdezi, mennyi időt adjon. Ha ide nem írunk be 
semmit, csak megnyomjuk a RETURN-t, nincs kor¬ 
látozva az idő. 

180—230 Kitalál egy feladatot a véletlenszám generátor segítsé¬ 
gével. Ha nincs korlátozva az idő, tovább megy, ellen¬ 
kező esetben az IDŐ alprogramra ugrik. 

250—300 Időkorlátozás nélkül kér két számjegyet, ha csak 
egyet kap, a RETURN-nal lehet továbbmenni. 
310—370 A két szövegváltozóból egy számváltozót készít. 
380—465 Ellenőrzi és kiértékeli válaszunkat. 

470—560 Ez a program lényege, az időkorlátozás. 

Úgy működik, hogy a 126 sorban beadott válaszunkat 
összehasonlítja az elején lenullázott időváltozóval, és 
közben a GET utasítás a billentyűzetet kéidezi le. 
600— A találati eredményt mutatja meg. 

A program Commodore C64-es gépre készült, de a 
70—90-es sorokat megváltoztatva más olyan gépre is jó, amin 
van T1S változó. 

Remélem programomat érdemesnek találják a közlésre. 


O 


O RÉM 

1 RÉM 

2 RÉM 
10 RÉM 


AZ ti—RE vt: 
BEGÉPELNI 


íjZODÚ SOROKAT NEM KELI 


* * * * * * * * # * # * * * * * 


Tisztelettel: 
Jánossy Gergely 



20 

RÉM * : SZORZÓTADLA C64 * 



30 

RÉM n-BDV :i: tett VÁLTOZAT* 

0 

o 

40 

RÉM * JAN0SSY GERGELY * 


50 

RÉM * A C«= ÚJSÁGNÁL * 


o 

■60 

RE M * * * * **- * •* * * * * * *•* * K * *• 

0 


70 

POKE53280,0:P0KE53231,0 


0 

80 

= , 0KE646, 15 

0 

90 

-'OKE53272, 21 


100 

PRINTCMR*f147) 


o 

1 .1 0 

PRINT"gEEJMENNYI IDŐT ADJAK A FELADAT" 

0 


111 

RÉM 3CCRSR LE 3 


o 

120 

PR I NT" MEGOLDÁSÁRA? "MÁSODPERCBEN,-" 

0 

125 

PRINT"HA NULLÁT ÍRSZ DE,VEGTELEM SOK IDŐD VAN." 


126 

INPUTX* 


o 

150 
160 

IF LEM \ X*) ~1 TMEIM ID*="00000” + x$ 

IF LEN (X*) --2 THEN ID*= ,, 0000“+X* 

0 

o 

170 

180 

RÉM FELADAT 

0 


190 

" " ; V2*=" " 


o 

200 

R1*INT<B*RND (1) <- 2 ) 

0 


2.10 

R.2~ I NT ' 3* RMD < 1 ) ►2) 


o 

220 

PRlNT-’nBTüTnCTl" ; RÍ 5 " . " 5 R2? "«?" 

0 

.L 

RÉM CSHIFT+CLR HOME3 3ECRSR LE3 2CCR3R JOBBRA 

o 

230 

IF VAUID*! >0 TI-IEM 60X0 4708 RÉM >1D0 


240 

; 

0 


250 

GET VI* 


o 

260 

IF V1 $■■”.THEN 250 

0 


290 

GET V2* 

o 

300 

IF V2*—"" THEIM 290 


310 

RÉM *** EL.LENORZES «** 

0 


320 

IF V2*»CHR* ( 13) THEN GOTO 360:RÉM >EBYJEGYŰ " 


o 

330 

V--VAL (V1 *) * :i O+VAL < V2*) 

0 


340 

WAIT190,255 


350 

GOTO 380:RÉM ->KIIRA3 


o 

360 

RÉM EGYJEGYŰ 

0 


370 

V=»VAL (V1 *) 



O 


O 


390;' PR I MTV; " -T I RTAL. " 

400 ,IFV«=R1*R2 THEN A*=" JjJGYES VAGY " + "£!" : AJ-AJ'-M 
40UÍ.REM CCTRL+63 CC«+83 

410 ■ IF VOR 1 *R2 THEN A*«"Q3SAC3I VAGY ! HELYESEN: \+STR* <R1*R2> h|"E" 8 AR-AR+1 

411 RÉM CGTRL-K33 CO+Ö3 \ 


O 


V JÜU-AUGUSZT. 4 












EGYESÜLET 




4.20 

o 

425 

430 


431 

o 

440 


450 

o 

460 


465 


470 

o 

400 


500 

o 

510 


520 


530 

o 

S40 


550 

o 

560 


570 


580 

o 

6O0 


601 

o 

610 


611 


" 620 

o 

621 


630 

0 

631 


632 

o 

640 

650 


o 


660 

6?0 

680 


TIIEN AR=AR+1 


RÉM EREDMENY 
IF A$="LEJÁRT AZ IDD! 

LEINT "üEMEEIE"; A$ 

RÉM 3CCRSR LEJ 4 IXRSR JOBBRAJ CCTEI.+* 
TOKÉ 198, 0 :: 

GET X*: IF XTHEN 450 


'THEN GOTO1Ö0! RÉM 


IF X$<> 

GOTO 6O0 
RÉM *** IDŐ *•**• 

TI $--"00000©" 

IF THEN IF V2$ 

IF V).$<>"" THEN GET V2$ 

IF V2$<>"'• THEN 'n$=;ID$ 

IF TI$OID$ THEN SOO 
TF V .1. " " THEN A$="LEJÁRT 

IF V2*«"” THEN a$~"lejárt 
6 0 T 0 310:: R E M -- > L L L E N OR Z II3 
: 

•s 

PR.ÍNT 
'RÉM t 
PR I NT 
RÉM 2 
PR INT 
RÉM 2 
PR I NT 
RÉM 2 
RÉM 3 
PR INT 
END 

i! 

: 

:: 


FEL. ADAT 


THEN GET VI$ 


AZ IDŰ ! : 1 " +BTR$ (R ;l. *R2) s GOTO 
AZ IDO!II"+STR*(R1*R2):GOTO 


"CEEEBBREMELEM GOKAT TANULTÁL!" 

SHIFT+CLR HOMO 3CCRSR LEJ 2 IXRSR JOBBRAJ 
"S®";; AR I-A.J; "FELADATBÓL " 

IXRSR LEJ 

"SEB"-}' AR; "NEM SIKERÜLT E3 
IXRSR LEJ CCRSR JOBBRAJ 
"iESr*fAJ? "SIKERÜLT" 

CCRSR LEJ IXRSR JOBBRAI 
CCRSR LEJ 
"05071: GC. 


420:RÉM ->EREDMENY 
420:RÉM ->EREDMENY 


READY. 



Tisztelt Szerkesztőség 


Bár nem vagyok OCE-tag, és ebből az újságból is csak há¬ 
rom darab van (a legutóbbi három), sajnos. 

Ezekből az újságokból tudtam meg, hogy ide lehet bekülde¬ 
ni számítógépes programokat. így én — kapva az alkalmon 
csináltam is hármat a C64-re. Ezeket kazettán küldtem el, és 
nagyon örülnék neki. ha valamelyiket Önök leközölnék a három 
közül. Ha van kedvük hozzá, akkor talán mind a hármat közread¬ 
hatnák (na nem egy lapban). 

Ahogy a legutóbbi három számban elnéztem, azt hiszem 
bármelyikkel felvehetik a versenyt a programjaim. 

A programok: TILI-TOLI, HUSZONEGYES, SPRITE 
KÉSZÍTIŐ 

Po/sgai Ferenc 


0 RÉM -tíHí#***#*****#**** 

2 RÉM * * 

^ 4 REH * TILI -- TOLI * 

6 RÉM * $ 

t» 7 RÉM ***************** 

8 « 

9 F'OKE 808,254 
L 10 F'OKE 657, I 28 ■GOSUB 535 
15 PR INT CHRTC :l.42> 

L 20 GOTO 245 

23 KEV= <PEEK<53266> RHD 3> + l 
30 8L=<LÉPÉS ITI-ID 3> * T-LEPES 
c 35 T=T~ <KEY= 1 > -- < KEV-3 >*4 
40 T--T+<KEV=2> + <KEV=4 >*4 
L 45 IF T<0 OR T>15 THEN RETURN 
50 IF KEV=2 AND SL«*0 THEN RETURN 
55 II- KEV=1 AND SL=3 THEN RETURN 
*- 68 H<LÉPÉS>“H<T> 

65 HCT>=15 

^ 70 I tD~ 11IT<CM<LÉPÉS> /256 > f LB^ILMCLEPCS >~ 

256*HB : I "'OKI 083, LB ■ POKL 8R4 . HP 
75 POKE 880,67 
O 80 SYS 870 

85 POKE ,KM<LÉPÉS>142,PEEK<KM íT >+42> 

•90 111':= X NT < KM < T >/256 > > LC I TI Cl J.256*1 )B • 

^ POKE 883;LB:POKE 884,HE 


5 


























EGYESÜLET 


Cf 


o 

o 

Q 

O 

O 

O 

O 

c 

c 

c 

c 

c 

c 

c 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

G 

o 

o 

o 


o 


95 P 
100 
105 
1 10 
1.15 
120 
. 1 . 25 
130 
135 
140 
1.45 
1.50 

160 
165 
1.70 
1.75 
180 
1.85 
190 
195 
200 
205 
21.0 
215 
22 © 
225 
230 
235 
240 
245 
250 
255 
260 
265 
270 
275 
epri: 
280 
285 
290 
295 
300 
305 
310 
315 
320 
325 
330 
335 
340 
345 
350 
355 
360 
365 
370 
375 
380 
385 
390 
395 
40© 
405 
41.0 
415 
420 
425 
430 
435 
440 


OKÉ :-J80.. 82 
SYS 870 

X=====0■LEPES=T=RETURN 
REhl *** KEVERI-3 *** 

0 = 6 © 

X=1 

GOSUB 25 
IF X THEN 125 
0-D-1 * 1F DOB THEI I 12 
GOSUB 455 
TI*="000000" 

POKE 198,0 
KEV=*0 

IF l'TOVE THEH 635 

GET C* •' TE C*=" " THEI-I 165 

IF FlSCÍCí) =3 THEN 740 

IF ASC<C*>“29 THEN KEY= 1 


;::0 


IF FiSC=: 
IF FlSC< 


C* >== 1.57 THEN KE:V=2 
CT > = 1.7 THEI-I KEV=3 
IF FlSCCCT> = 1.45 THEN KEV-4 
IF KEV-0 THEN 165 
X=1=GOSUB 30=IF X THEN 155 
C=1 

POR L=0 TO 1.5 

IF Hí.L><>L THEI-I C==*2 

HEXT L. 

OH C GOTO 470,155 


RÉM *** OHMÉ STFlRT *** 


ÓIM Hí J.5> , KM< 15> 

FÓR J=835 TO 904 
RERD BYTE 
CHECK-CHECK+BVTE 
POKE J,BYTE 
HEXT 

IF CHECK09442 THEI-I PPTI-tT' ?DFiTFi 
ift" = POKE 308 ■ 237 = EHD 
POR 1=0 TO 1.5 = HÍJ. , = I • HEXT I 
P= 1024+6*40+10 = G===P 
FÓR ,7=0 TO 15 
KMÍ,T>=P = P=P+5 

IF PXQ+15) THEN G=G+120 < P==G 

HEXT ,T 


h*i 


i r 

I I 


I I G 


LEPES== 15 
PRIHfSI'iílEl" ; 

POKE V, 15 = POKE V+1,3.5 
PR INT TRBÍ6>" Ml Hl l»lll»ll 
PR INT TR8<7>“a Wl Hl HŰI 
PR INT TRBÍ7 > " öl HM Hl i'l 
PR INT "MüGiJÖI" ; 

PR INT TRBÍ :l.0 > "r 

PR INT TRBÍ 10>"lSlr--i r- — 

PR INT TFlBÍ 10>" Hl R I I & 

PR INT TRBÍ 10>" d L -. 1 - 

PRIHT TFlB í 3.0 > " ISI i—.-i r— 

PR INT TRBÍ 1.0 >" ISII E II F 

PR H IT TFlBÍ IS > " SI '■-» 1 - 

PR INT TFlBÍ 10>" Sir-r-. 

PR INT TRBÍ 1.0>" ISII I II J 

PR INT TFlBí 1.0 > " SI '■- J -- r *— 

PR I NT TRB < 10 > " Öl r--i r.-i (— 

PR INT TRBÍ 10 >" öli M I I N I I ' 

PRIHT TRBí 10> “ Öl-*- - 1 L . 

pr i hí " jsTPöa"; 

PR.INT TRBÍ ISO"!" 

PRINT TRB í 13 > " öl IRRNVI TAS 
PR INT TRBÍ 13> "'"ISI 
TI4="00000O"= GOTO 48Ö 
PR INT"! "ITT 


445 PR INT TFlBÍ 14> "MEG KEVEREM. . " 

450 GOTO 1.3.5 
455 PR INT " n'iü'llSI" ; 

460 PR INT TFlBÍ 14 >"RAKJA SORON |" 

465 RETURN 

470 pr int "na"; 

475 PR IHT TFlBí 14 > "GRRTULfil.OK 1 1 " 

480 PR1 NT" Wmlal" T l'lBÍ 1.4 > "TIME " LEFT4 í TI *, S 
“ I I10*< TI *, 3, 2 !■ " " R J. GI-IT* í T14,2> 

485 F :- R I NT "-sínMisWiiiV' TRBí 8 > " V FILOSZTFtS UTFlN 

495 GOSUB 680 

5O0 PR I NT " SMWW&r TRB í 8 > " 

505 PR I HT " >1 r*Ttíl>=l>!Ti!'T>!!:i>'Ti!>:i:i!!I><04I««Ti<!>!Ti!'Ti!':i+':i ‘‘ , 

510 PR INT TRBÍ 1.4 >" 

515 GOTO 440 


'•RETURN 


I ! = 1 


520 


RE 1-1 ***** 


M E M U 


***** 


530 

535 


53280 = POKE V, O = POK.E V +1. , Fi 
540 PR INT "mai" Cl IRT < 1 4 > i 
545 PR INT" Ül* 

550 PRINT"* 

555 PRINT";;* 

560 PR INT “38 Sf‘ 

565 PRINT" 

570 PRINT"v" 

PRINT=PRINT=PRINT 


0 




♦ GÉP l< 1 Pl l IZGI.... EGY 4X4—ES MEZŐT "= PR INT 
ES ELHELYEZ BENNE 15 BETŰT,"=PR INT 
MFlJD MEG KEVERI. "= PR INT 0 

—ELRDRT>"•PRINT 

fl BETŰKET *I—SORRENDBE RAKNI"=PRINT 
RZ ÜRES HELY MOZGATÁSAVRL.">PRINT = PRINT 
'OH JÓN LE EGY BILLENTYŰT '" 

0 


580 PRINT" 

585 PRINT" 

590 PRINT" 

595 PRINT" 

600 PRINT" 

605 PRINT" 

6 10 PR I NT" na" TRBí 6 > 

620 GOSUB 900 
625 PRINT":'!"; 

630 RETURN 

635 JOV-PEEK<56321> 

640 IF íJOV AND 8>*=0 THEN KEV==1 

645 IF <JOV AND 4> =0 THEN KEY’==2 

650 IF í JOV AND 2>==0 TI-IEH KEY*»3 

655 IF ÍJOV AND 0=0 THEN KEV®4 

660 IF ÍJOV AND 16>=0 THEN 740 
665 IF KEY=0 TI-IEN 635 


O 

O 


O 


IMIIN Illír "HUJ HÍMII " 
Mim i>= üii s m a mi i« ni" t " 
mi=m Hmni^aa *rsw nm 


i i D i 


O 


”i r 
I I 

.1 L 


H I 


O 


., r 


I I I I I L I 


I I- 


o 
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EGYESÜLET 


j 

ü 

J 

o 

Q 

O 

o 

o 

o 

o 

o 

o 

J 


670 GOTO 200 
675 ■ 

680 PR I NT " ; = MÜVE=0 

685 PR INT "FI. - BILL. " 

600 PRINT"WWBF3 - J'OV. " 

695 GET VT-IF Y$= ,,M THEN 695 

700 IF Y$= ,, M" THEN PRINT"TTTT‘J-HF I BILI . " PRINT" Wí-RÍT . JOV. " •• MOVE«=0 

705 IF V*»"S" THEH PRINT”rTTTIrö'F 1 - BILI... " • PRINT" WWaTS . -JOV. " ■ N0VE=1 

71G IF RSCCY4>=13 THEH 720 " 

715 GOTO 695 
720 PR I NT " rXTIT 
725 PRINT"MM 
730 RETURN 
735 ' 

740 RÉM *** VEGE *** 

745 POKE 198,0=POKE 834,0=SYS 834 
750 < 

755 DFITfl 24®, 195, 195, 195,238, .1.94, 160, 160, 160, 134,237, 135, 195, 195,253 

760 DRTft 160, 160,242, 160, 160,235, 160, 160. 160,243, 160, 1 60, 241,1.68, 3 60,2,2,2,2,2 

765 i 

770 ŐRT fi 160,0,56, 162,255, 169,5,72.232, I 85,0,3, J, 57,0, ö, 280, .1.04,233, .1., 208,24 2 
775 DRTft 24, 138,105,35,170,192,15,240,4,56,76,107,3,96 
900 i 

905 RÉM ***** S20VEGM0ZGRTRS ***** 

91.0 « 

915 CRERTEDT*" ■"¥>* I * .~_“x- 19' ; '21. 

920 tt#=" i n...-, t L-,--1 n i'.u-m 

925 COL--1 

930 POKE 198,0 

935 POKE 646.COL* 14 

940 PRI NT " SSWfcHIM" CRERTEO* 

945 POKE 646,COL*12 


O 

O 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 


950 PRI NT " WílBsUIM" i "FT* 

q 955 CRERTED4=R IGHT* <CREfiTED*, 1 >*LEI“T* < CRF.ftTGO*, 35 > Q 

960 TT*=-M ID* < TT4,2,35 >-H.-EFT* < TTt, I. > 

965 GET fi#i IF fl*0" M THEN RETURN 

O 970 COL*<1-COL> O 

975 FÓR J*0 TO 20‘NEXT 
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o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


75 PRINT" I ÍJ JET 'üli f 

80 PRINT"I I I" 

85 PR INT “ 153 0 FTSII I 

90 PR INT" '•......------ 

95 PR INT" SÍT PILON" 


100 
1 OS 
I 18 
115 
120 
125 
ISO 
135 
140 
145 
150 
155 
165 

170 

171 

172 

173 

174 

175 
ISO 
185 
190 
205 
210 


FÓR Fl=l TO 5-PRINT" 
MEXT fi 

PR I NT " "TTTTnal" ; 


PR INT TAB< 10> " .-.— 

PR INT TFlB<:i0>"=m BŐNK 
PR INT TFlBClOV all 
PR INT TfilüK 10) " a(l "BlTNK 
PR INT TAB< 10 > " all 

PR INT TPlBPlOV'íir-- 

PR I NT " HMÜ1" , 


zi r.— 

1 711 TFT 
I 711 

FT I 711 0 

I 711 

.■' 71 L - 


I » 

I " 

FT I " 
I " 


PR INT" BFlNKRR" 

GOTO 590 
FOKÉ 198,0 
PT--@ • GOTO 960 

IF ,ÍL=5 AND JER-C15 THEII JER-22 • GOTO 970 

IF JL-5 THEN GOTO 730 

IF BflMK=TET THEN 635 

IF PLAVER=TET THEN 635 

GET L*<IF L*«"“ THEN 175 

J=ASC<L*> 

IF L*="in" THEN 215 
IF LT="SS" THEN 240 
IF 4=13 THEN 330 
GOTO 175 


215 RÉM *** TÉT ELŐRE *** 

22Ö IF <BANK—TÉT> =PT OP CFLAVER-TET > =PT THEN 1.75 

225 PT=PT+ 1 


230 PR I NT " !sl«r«!l««r*Mi<r>'T*W7J" PT 
235 GOTO 1.75 


240 RÉM *** TÉT HFlTRfi *** 
245 IF PT=0 THEN 175 
250 PT=PT—1 


255 PRIHT";«Ni4MNMMi':M»r' ; 


265 PR INT PT" III " 

270 GOTO 175 

325 < 

330 RÉM 
335 > 

34© TÉT“TET+PT = PR I NT ";=MM:Mi4M'NN.Il«lll»®!TF'r'" ■ PR I NT" 

345 > 

350 RÉM ***** BANKAORS ***** 

355 RÉM ***** JÁTÉKOS PÉNZÉ ***** 


360 ■ 

365 BRMK-P'EEK < 53266 >+400 
370 PL.RVFE=PEEK532*66 .* +33 
375 RÉTURH 

380 RÉM **** KFlRTVFlK ***** 

385 i 

40O DATA 2,3,4,7,8,9,10,11 
410 = 

415 RÉM ***** START ***** 


420 = 

425 V.53280 

430 PCP=3 ■ JL.=0 ■ TÉT=0 

44© GOSUB 350 > PQKE 650,1.28 

445 TFlL=0 

450 POKE 657, 128 > POKE V, 254 • POKE V i t. , 254 
455 PR INT "Fiatal" , 

460 PR I NT TAB<11>. rrrrrrrrrrrrrwwr . . 

465 PR INT TAB<11>"F . 

470 PR INT TAB<11>"»TS I F> a| V" 

475 PR INT TABUI Vr r " 

488 pr i NT TOB < 11 >" .. . 

485 PRINT"*#ÍS *♦ “I l“# I %l. ..L.~> I t '*“L“/I 

490 PRINT "TAB<13> “-1 TÉT ELOREM" 


GOSUB 925 < GOTO 635 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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o 

o 

o 

o 

o 

o 

o 
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V 


EGYESÜLET 


o 



o 

4 95 

PRINT TRB<13>"—3 TÉT VISSZA*!" 


500 

PR :r. NT TRB< 13 > " T"' GNEASZBP 


o 

50!=j 

PR I NT TRB< 13 > " L’" LRPKERESW" 

o 


510 

PR I NT TRI3 < 13 > " ' EL00BASW 



515 

PR INT “ *2 -1,-3 UTRN - _ l KELL" 

o 

U 

520 

PR INT " .2 UTRN R '\ .1 •''■■■-FELIRAT INVERZ LESZ" 


5 is!:! 2! 

PR INT ** ES JELZI , HOGV HASZNÁLHATJUK RZ“ 


o 

5,23 

PR I NT " < E, L, ■■'■'> BILLEHTVUKET. 41" 

o 


525 

PR INT T RB < 7 ■■VONJON LE EGV BILLENTYŰT !", 


o. 

530 

POKE 198,0 

o 


GET BT - ÍP B4=.IHEN 535 


540 

RETURH 


0 

545 

FÜR 1=1 T0 32 

o 


550 

RRH= < PEEK < 53266 > AND 31 > +1 


o 

555 

FÓR J=1 T0 I 


5 GÖ 

IF NUM8< J>*RRN THE N 550 

o 


565 

NEXT J 


o 

570 

NUMB<I>=RRN 

o 


575 

NEMT I 



585 

RETURH 


o 

590 

; 

o 


595 

RÉM *#* OSZTÁS #*# 


o 

600 

PRINT":TTTHII«IMil!SI osztás a játékosnak 

o 

610 

1 


61 l 

KK=NUMB<TAL+1>78 

o 

o 

612 

IP ASZ”-1 AND INT<KK>»KK THEN TAL=TAL+1 < GOTO 611 


613 

IF ASZ»1 THEN ASZ"0 > PRINT"ÖP’TRB< 17> " 


o 

615 

TAL-TAI..+1 • JL=JL+1 

o 

620 

KH»INT<NUMB<TÁL)/8.3>>GOSUB 745 



625 

OH KM-'-1 GOSUB 785, 8 15,845, 885 

0 

o 

630 

PCP-PCP+6' IF TETOBANK AND TETOPLAYER THEN PRINT"«Mi^Ii!WS»i»»iírET" 


631 

GOTO 1.65 


o 

635 

GET X*'IF Xí=.THEN 635 

o 

640 

IF X4="0" THEN 660 



645 

IF X$“"L" THEN 700 


o 

650 

IF X*= ,, 0 H AND PT=0 THEN 710 

o 


655 

GOTO 635 


o 

6 6 fi 

RÉM **# 0NEASZ *M. 

o 

665 

IF JL=1 THEN 635 


675 

T=LSZ < 1 > +LSZ < 2 > +LSZ < 3 > +L.SZ < 4 > 


o 

680 

IF Töl 1 THEN 635 

o 


685 

PRINT"KW" TRB<17>“ONEASZ" 


690 

ASZ= 1 

o 

o 

695 

GOTO 635 


700 

RÉM *M LAPKERES 


o 

705 

GOTO 610 

o ■ 


710 

RÉM *** ELDOBÁS *** 


715 

IF JL—1 THEN 635 


o 

720 

JER—L.SZ < 1 >+LSZ <. 2 > +LSZ < 3 > -H..SZ < 4 > 

o 


725 

IF JEEC15 THEN 635 


o 

730 

PRINT" SM"TRB<17 >"BEDOBVA" 

o 

748 

GOTO 980 


745 

RÉM 


o 

750 

: 

o 


755 

PRiNT"$*flX««:sr; 


D 

760 

R=HUMB <TÁL > 

o 


765 

D4—LEFT4 CCARDSÍR? , 2> > F4=D4 


770 

LSZ<JL>»VAL<0*>■D4=F4+" "+F$ 

1 

o 

775 

IF F4=" 10“ THEN 04=" 10 1.0" 

o 1 


776 

IF F4=" 11. " THEN 04= "A A" 

o 

780 

RETURH 

o 

■ 785 

RÉM #** PIKK ##* 


790 

PR I NT T AB < PCP > " fl“ 04 


o 

795 

POR IJ =1 TO 5‘PR IIIX TAB<PCP>"SI "1" 

o 


800 

NEXT U 

o 

805 

PRI NT TAB <PCP>"N"04 


810 

RETIJRN 

o 


815 

RÉM m* KOR *## 


o 

820 

PRINT TASC PCP >"S"04 

o 

o c- 5 

FÓR U«1 TO 5 = PR INT TRB<PCP > " EJ * ♦ " 
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o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


830 MENT U 

835 PR IMT TRB < PCP > " öl" 0* 

840 RÉTURH 

845 RÉM M+ KRRO *** 

850 PRINT TRB<PCP)"a"D* 

855 PRI NT TRB<PCP)"S+ ♦" 

860 POR U=1 TG 3 = PR INT TRB < PCP > “ öl 
865 NEHT U 

870 PRI NT TRB < PCP> " SS* ♦ " 

875 PR X NT TRB < PCP > " öl" D* 

88 G RETURN 

885 RÉM #** TREFF *** 

898 PR INT Tfi(3<PCP> " STD6 

895 PRI NT TRB<PCP > " öl * " • PR INT TRB <PCP'• " SÍ 

900 PR I NT TRB<PCP> " öl* * " • PRIITT TRB < PCP > " SÍ 
905 PR INT TflB<PCP>"SI * " 

9 10 PR I NT TRB<PCP> " ti" 0* 

915 RETURN . - 

920 ■ 

925 RÉM 

930 PR I NT " SíiílrtiiIi'TíMwMWíIi'MRl" ; 

935 PR INT TRB < 22 ) TÉT " ÍB " 

955 RETURN 
960 RÉM 

965 JER-LSZ< 1 > +LSZ<2>-i-LSZ C 3>♦LSZ<4> +LS2 C5 > 

970 IF -JÉR>21 RND JL<>2 THEN PRIMT"SWTRB <. 1. 7 > "FUCC8" : V= I ; GÉP 1^GOTO |. :| 30 

975 GOTO 171 

980 RÉM #** BRHKOS LRPJRI *** ” 

985 = 

990 PR I NT " ; 

995 PR INT" 


O 

O 

O 

O 

Q 

Q 

O 

O 

O 

O 

O 

O 


1000 PCP=9 : JL-=5 
1010 ■ 

1011 KK-NUMB < TlTL-i-1 > /8 

1012 IF RSZ-1 RND KK—INT<KI<> THEN TlTL.TRL+1 = GOTO 101:1. 

1013 IF 882= 1 THEN I"IS2.=0 
101.5 TRL=TRL+.l > JL=JL+1 

1020 KH=I NT CNUMB<TRL>/8.3> 

1025 PR I NT "■ 

1830 GOSUB 760 

1035 CN KH+1 GOSUB 785.©15,845,885 
1040 PCP=PCP+6 

1045 OR-LSZ< 6>+LSZ< 7 > +L.SZ<8 > +LSZ< 9>+LSZ< 10> 

1046 IF JI..--10 RND 0RC15 THEN 0R=22 • GOTO 1080 

1047 IF ,TI_~1@ THEN 1080 

1050 IF JL<>6 RND 0R=11 THEN 082=1 
1055 IF 0R<15 THEN 1010 

1060 IF LSZ<6>»11 RND LSZ < 7 >= 1.1 THEN GEP=l-G0T0 1130 
1065 IF 0R>19 THEN 1080 
1 ©70 BLRP--1NT <RND< 1 > *< Ofl-13> > 

1075 IF ... THEN 1010 

1080 IF OFO-2.1. THEN PR INT TREK 17 " isFUGCG" ; GEP=0 1 GOTO U39 
1 ©85 PR INT TRB < 17 > " aBEDOBVR" .■ 

110© IF JER=22 THEN GEP“0 > GOTO 1130 
1.120 IF 0Fl>=JER THEN 6EP»t 
1125 IF Ofl'ÍJER THEN GEP=0 

l130 if GEP=l THEN PLRVER=PLRVER.TÉT‘BflNK=BRNK>TFT 

1135 IF GEP=0 THEN PLRVER=F'LRVER+TET ; F:RNK=BRNK-TFT 
1145 PR INT " Mrr«WIWji:il»ll"PLRVER" Ilii “ 

I 170 PR I NT " afuMiíMitíJSWN" ; 

1175 PR I NT TRB < 1 1 > BRNK " 118 “ 

1176 F'QKE 198,0 

1177 GET Esi ■ IF E*--"" THEN 1177 
1180 PR I NT " Sí" TRB < 17 > " 

11 90 pr i nt" 11 trb <23 >" !ixi mmmmmr 

1195 PR INT TRB<17 >" " ; 

1200 PRINT M aWW" i 

1205 PCP=9 i .JL=0 • TÉT=0 

1.207 FÓR 1 = 1 TO 10-LS2O>=0 ; NEXT I 

1210 IF BRHK=0 THEN 130© 


O 

O 

O 

O 

O 

o 

o 

o 

o 

o 
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o 
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o 

o 
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'US 

3lH 


Q 


O 


O 


O 


O 


o 


o 


o 


o 


o 


) 215 
12-20 
.1.225 
1230 
1235 
124f» 
1245 
1250 
I 255 
1 260 

1270 

I 280 
1290 
130O 


: : r i._ 


IF Pl.RVER*0 TI-II "I I 1495 
FÓR L= t TO 7 
PRIHT TFlBCSO" 

IF V=1 THEN 1255 
PR II-•IT ,, :i<Mi’Me!MííWr , 

FÓR L=l TO 7’PRÍNT TflB(S)" 

MERT L 

PRINT »•tttTTTJ ISI OSZTÁS 0 J'RTEKŰSNRK 

V=0>IF TRLC24 THEN 610 

PRI NT •• a^MiilMfl'isMlcM" ; > FÓR' -I = 1 TO 32 = NUI'IB < J" >=0 : MENT .1 

PR I NT " HSKÉVERES " TRL=0 

GOSUB 545 

PR I NT “ FI ISIT Pl LÓN ™ 1 " 

GOTO 610 

RÉM ***** BANKROBBl'lHTRí 
PRINT"nWM«S:"; 


***** 


1310 

PR INT 

Tfl6<9> 

nnmn 

m n:n 

H* Hí 1 




1315 

PR INT 

TlTB < 9 > " ® 

« m* 

mii 

•amin iiin 

mn Mii" 




1320 

PRIHT 

TRB<9!> 

IMII# IBP 

iiiii mii írni 

" 




1325 

PRIHT 

TRB<9> “* 

«# m* 

nt* 

•is hí iiin 

mn o " 




1330 

PR I NT 

TRB<9> "*»• 

m 

■# 

«■ Hin 

» *MWW 



í 335 

PRIHT 

#•* »* 

wwim 

Hl* W illli 

<#>* 

o hhi 

iftiiW 

mm" 

1 34 0 

PR I NT 

m # # « 

IS" Ilin 

ki? 

mr mn nin 

mn mn mn 

mn 

4t< 

h»" 

1345 

PRIHT 

### / « |» 

iimuDNim 

minöliitri: 

Ott** 

# o mn 

mii mn mn «> 

M" 

1 3*50 

PR I NT 

mi Hm w m 

"J" HIH 

•vn 

KJ" « 

# <n* <!in 

mn 

•HU 

iift>" • 

1355 

PR IHT 

# ü» 4H njn 

«hU!h»> 

üHi Ulti HIH 

ifti ttf!i 

ifit i*H 

m 

mn 

mn iuii ntii 

1360 

T=8 









1 365 

FÓR P 

=1 TO 23 








1370 

PR I NT 

TRBCDMID:* 

< M ME 

3 EG 

V .JRTSZMR 

I/l 


, p * 1 >; 


1375 FÓR R=0 TO 100>1 
1330 T==T-H. 

1335 NENT P 


:t R 


RERDV. 


O 


O 


O 


O 


o 


o 


o 


o 


o 


o 



:l. 390 

POKE 1 

93 a 0 



o 

1395 

GET TI 

• IF T$="" THEN 

| OC| BS j 

o 

1400 

IF T*“ 

"II" THEN SVS 20 

18 


14 05 

IF Tí= 

"I" THEN 1415 



o 

1410 

GOTO 1 

395 


ü 


1415 

TOL=@ > 

V®0 



o 

1420 

FÜR 1 = 

1 TO 32>MUMB<f> 

“0 = HEMT I 

o 

1425 

GOSUB 

1570 



1430 

GOSÜB 

545 



o 

1435 

GOSUB 

350 


0 


1440 

GOTO 4 

c 



o 

1490 




o 


1495 

RÉM ** 

*** JÁTÉKOS 'v'ES 

JTF.TT ***** 



1500 





o 

1505 

PRI NT" 

rMawisr; 


o 


1510 

PR INT 

TRB<7>"* * 4* 

>»t un 'WHlli HSHHi 14 


o 

1515 

PRIHT 

TF©<7>"e® # « 

•»«»• iiin mn «*" 

o 


1.520 

PR INT 

TflB < 7 > " • • » *> 

# mm mn & m " 



1525 

PRIHT 

TFlB<7>"* 4* iill' • 

o. mn mii • •" 


0 

1530 

PRIHT 

TRB<7>"# • «' 

4» ii||i tíiiüi -ffit liDnHli :i!!fn|'4l" 

o 


1535 

PRIHT 

TABÍ8> "*4»4» 

i* « iDimiii** i|*i»ii»" 


o 

1540 

PRIHT 

TR0<8)"# 4» • 

#mn mii »» Hm” 

o 

1545 

PRIHT 

TRBí8> •# 

ni* mn mn # 



1550 

PR I NT 

TRBC'cO "4* 4» 

mii mtuifli Hm itt" 


o 

j. 

PRIHT 

TRB í 8 > " * wm 

« m mi#'1111* imi'Mi üllfMd" 

o 


1560 

GOTO 1 

360 


\ 

o 

1570 

PR INT 

nRTisMiSilíCffBS" .* 


o 

1 575 

PRIHT 

í M H 01 ll» |i II* 41' * l« ItHIk l» l'in H« CM l» Itat«4* l» te * * l» Ilin IM W 4t (• ®» Ita • O "' 


1 580 

PRIHT' 

cte 1te # * 9ii!'*III" ti te * » Öt te!«tat!«I(» IS» tat l« I1« int»Itoliai IIH le'' 


o 

1585 

PRIHT' 

o» |i m« in» te # u líti ixt* i« fe ült te H te w l« Ifti te «# • l»B« te m i» lll» Ilin tat •'' 

o 


1590 

PRIHT 

mjw ii iíhiii 1 i(ti te in sjt *t i*t no in te k » tat»® öt te ti te '*» te»w t» a »lüa te'' 


o 

1595 

PRIHT 

ste l» í» II#»üti* * e 1 III !*i te l« * Na iltiiii 44t «H' i< te!«fflt te |t ü» m «l" Ite ® tta>"‘ 

\ ° 

1600 

RETURN 
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■ 

■isisig 


V® 


* 


EGYESÜLET 


!. 0 RÉM **************************** 
15 RÉM ***** SPRITE—KÉSZ ITO ***** 
20 RÉM ***** ***** 
35 RÉM ***** ROZSDÁI FERENC ***** 
40 RÉM ***** ***** 
45 RÉM ***** 1992.11. 10. ***** 
59 RÉM **************************** 


60 

65 

70 


o 
o 
o 
o 

° 80 
85 
G 90 
95 
1 00 
o no 
115 

O 120 
125 
130 
O 131 

135 


FOKÉ 657,128=PRINT CHR#<142 > 

DXM BS<23> 

GQSUB 505 

PHT-0 > BVTE«0 1 0=0 > W--0 . SP=219 
CM-55389 = KM== 1117 
V’*53248 
POKE V+21,O 

POKE V+40,1=POKE V+16,0 
POKE 2041,13 

FÜR N--0 TO 63 = POKE 832+N .• 0 = MENT 


-KÉS 


N 

I TÓMŰT' 


PR INT " SI" TRB < 1 8 > "SSPR ITE- 
FOR J=1 TO 21 
PRINT TRB<13>"S 

PR INT "M“ TRB< 15 ) " SPR ITE KIKAPCSOLVA' 
POKE KM, 8P 


: MENT 


q 140 = 

145 POKE 198,0 

150 GET KEVsfc < IF KEV$=" " TI-IEN 150 

AND PNT023 THEN 225 
FlNO PNTÓ0 THEN 245 
FlND BVTEO60 THEN 265 
AMD BVTEOO THEN 285 
TI-IEN 385 
THEN 365 
THEN GOSUB 390 

THEN GOSUB 455=GOSUB 475=GOTO 110 
FlND PEEKXV+21 >=2 THEN 4:1.5 
FlND PEEKXV+21 >=2 THF.H 435 
THEN GOSUB 455 
TI-IEN 800 


o 

155 

IF 

KEV#*="M" 


160 

IF 

KEY*==» " II" 

o 

1.65 

IF 

KEV*= " Ml" 


170 

IF 

kgv*= ,, :t' 


175 

IF 

KEVíF= " «lll" 

o 

1 80 

IF 

KEYsP=“ü“" 


185 

IF 

KEV:ir="ia" 

o 

190 

IF 

KEVsP="il" 


195 

IF 

KEVÍ == "Sí" 


200 

IF 

KEV* == " Ilii" 

0 

205 

IF 

KEV#=" Ml" 


210 

IF 

KEV#-"■" 

c 

220 

GOTO 145 

221 

: 



222 

: 


o 

223 

RÉM 


224 

: 


o 

225 

RÉM 

*** 


226 

: 



227 

RÉM 

c 

228 

: 



229 

: 



o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


JOBBRlT 


*** 


c 


230 KM—KM+1 >PNT=PNT+1 =CM==CM+1 
235 POKE KM-1,160 = POKE KM,SP 
240 GOTO 150 
C 241 ■ 

242 = 

243 RÉM 
° 244 = 

245 RÉM *** BlTLRFl 

C 246 > 

247 RÉM 

248 ' 

249 1 

250 KM-KM-1= PNT=PMT-1= C 
255 POKE KM+1,160=POKE 
260 GOTO 1.50 

261. i 

O 262 = 

263 RÉM 
O 264 ! 

265 RÉM *** LE *** 

266 = 

C 267 RÉM 


G 

O 


*** ■ 


M=CM - I. 
KM, SP 


C* 


JULI-AUGUSZT. 
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o 

268 

. 

o 

! 

269 

: 


o 

270 

KM==KM+40 = BYTF=BVTE+3 ■ CM====CM+40 

0 

275 

POKE KM—40,160=POKE KM,SP 


280 

GOTO 150 


o 

281 

: 

o 


282 

: 


o 

283 

RÉM 

0 

284 

: 


285 

RÉM **.* FEL .*** 


o 

286 

t 

0 


287 

RÉM 



288 

S 


ü 

289 

1 

0 


290 

KI4 “KM—40 = BVTE-BVTE—3 = CH=CM.40 


0 

295 

POKE KI'1+4©, 160 = POKE KM, SP 

o 


300 

GOTO 150 


o 

304 

RÉM 


305 

RÉM *** PONT BE *** 

0 


306 

RÉM 


G 

310 

MFlSK=832+8VTE+' I NT < PHT/8 > \ 

o 

315 

IF <PEEKCMl-lSK>FlND BS<PNT>> THEh\ 335 



320 

POKE CM ,l 


o 

325 

POKE MRSK,PEEK < M ASK)OR BS<PNT> 

o 


330 

GOTO 150 


o 

334 

RÉM 

o 

335 

RÉM *** PONT KI ***. 


336 

RÉM 


Ü 

345 

POKE CM,14 

0 


355 

POKE MRSK, PEEK<MRSK >FlND 255 BS CPMT > 


o 

360 

GOTO ISO Y 

o 


361 

: \ 



365 

RÉM *** SPRt TE-RDRTOK KIIRRSR *** 


o 

369 

; 

0 


370 

print"swimb:"; 















CK 


EGYESÜLET 


o 

o 

o 

o 

o 

Q 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

n 


375 

330 

385 

387 

388 
390 

392 

393 

394 

395 
400 

405 

406 
410 
415 
420 
425 
430 
435 
440 
445 

450 

451 
455 
459 
46© 
465 
470 

472 

473 
475 

478 

480 

435 

490 

491 
495 
500 
505 
510 
515 
520 
525 
530 
535 
540 
545 
550 
555 
560 
565 
570 

530 

585 

590 

595 

600 

605 

610 

700 

705 

715 

745 

800 

305 


FÓR 0=832 TG 892 STEP 3 
PRINT "« “ PR INT 

NEXT 0’GOTO 145 


"'T‘, PE£K<R> 1 "M" PEEHXR+1 1; 


pr 7A- ■ Íi-I £ í 


RÉM ##* SPRITE BE MMM 


IF PEEK<V+21>=2 THEN 480 
X=48 1 V=114 

POKE V+2,X'POKE V+3,V 
POKE V+21,2 

POKE 2006,2>POKE 2007,5 
RETURN 

RÉM * X-MRGVITRS / X—ZSUGOR1T08 
0 = < 2—0 > 

POKE V+29,Q 
GOTO 150 

RÉM * V--NRGVITRS / Y—ZSUGORITRS 
M=C2-H> 

POKE V+23,W 
GOTO 1.50 


RÉM ** 


SPRITE-RDRTGK TORLESE 


MM 


PRINT"SWW" ; 

FÓR J=1 TO 21>PRINT" 
NEXT J•RETURN 


RÉM MM:* 


SPRITE KI 


Mi ♦ 


POKE V+21,0 
0=0■U=0 

POKE V+23,G 1 POKE V+29,8 
POKE 2006,11<POKE 2907,9 
RETURN 


R EM Mi Mi * M Mi *M*Mi Mt 


MENÜ 


MMM.MMüMMMifM. 


PR INT "Zl" ; FÓR C=0 TO 23 ! RERD BS<C> • NEXT C 
POKE 53281,O«POKE 53280,0 
PR INT TRB< 13) " üiöBPEITE-KESZI TO " 

PR I NT " MMPRRRNCSOK ■ " 

PR I NT " mű" TRB < 8 > " F1 PONT KI /BE “ 

PRINT TfiB<e>"30F3 •+ SPRITE—RQRTOK KI IRRSR" 

PRINT TRB<8>"MFS - SPRITE LÁTSZIK/NEM LATSZIK" 
PRINT TRB<8> " MF7 - SPRI TE' TORLESE" 

PR INT TRB<8) ,, WF2 - X-NAGVIÍftS / X-KICSINVITES 1 
PRINT TRB<8>"MF4 - V-NRGVITRS / V-KICSIMVITES' 

PRINT TRBOBV'MFS - SPRITE.ROBTOK TORLESE" 

PR INT TRB < 8 > " ff'8 -- VEGE" 

PRINT TRBí8>"MM3NVÖMJÓN LE EGV 01LLENTVUT"; 
POKE 193,0 

GET 0*' IF D*="". THEN 535 
PR INT" 21" 

RETURN 


BRTfi 128,64,32,16,8,4,2,1, 128,64,32,16,8,4,2,1,128,64,32,16,8,4, 
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PROGRAM 


& 

SPRITE LOPÓ 


E program segítségével a gép memóriájában lévő spritc-okat 
lehet lelopni. A programmal megnyílik a lehetőség, hogy a já¬ 
tékprogramok nagyon jól megtervezett SPRITE-jait megszerez¬ 
zük magunknak is. 

A rendszer létrehozása és betöltése: 

1. Futtassuk le a SPRITE THIEF programot, ami lényegé¬ 
ben DATA OLVASÓ. Ebben található két program DATA sorok¬ 
ban. Névszerint: LOADER (SPRITE): a rendszer betöltése: 
SPRITE: maga a SPRITE Lopó. 

A futtatás után ha mindent jól írtunk be, akkor az előbb em¬ 
lített két program a lemezen lesz, és a gép végrehajtja a RÉSÉT 
rutint. 

2. Töltsük be a „lelopandó” programot és RÉSÉT. Fia dol¬ 
gozni akarunk a programmal, akkor töltsük be a LOADER-t 
LOAD "LOADER (SPRITE)",8,8 

Ezután a SPRITE THIEF-ben vagyunk. Itt nyílik lehetőség 
a SPRITE-ok megkeresésére. A rendszer használata: 
Billentyűk: 

’+’ Egy SPRITE-tal előre lép a memóriában. 

— Egy SPRITE-tal visszalép a memóriában. 

'Balra nyíl’ 16 SPRITE-tal előre lép a memóriában. 

'S' SPRITE kimentése. 

Kilépés a programból ’SPACE’ 

’Fl’ A SPRITE 1. színének a megváltoztatása. 

’F2’ A SPRITE 2. színének a megváltoztatása. 

’F5’ A SPRITE 3. színének megváltoztatása. 

’M' MULTI-COLOR mód. 

H' HÍRES mód. 


SAVÉ: 

Az ’S’ megnyomása után a program kiírja: PRESS ANY 
KEY 

Az itt megnyomott betű lesz a SPRITE neve a lemezen. A 
név formátuma: SPRx. 

Egyéb tudnivalók 

1. A programból kilépni csak a SPACE-szel vagy RESET-tel 
lehet, mert a program átírja a $302-es vektort, és ez mindig 
loadcrrc mutat. Ha megnyomjuk a RUN/STOP + RESTORE-t, 
akkor a betöltést újra elindítjuk, és az keresi a rendszert a leme¬ 
zen, ha nem találja meg, akkor a gép befagy. 

2. Az ’S L el kimentett SPRITE $400 (1024) címre fog betöl¬ 
teni, de ezt a címet egy LOAD ADDRESS programmal át lehet 
írni bármire. 

3. Ha a helyére betoltunk egy SPRITE-ot, akkor megjelení¬ 
teni a következőképpen lehet: 

POKE 2040,16 (SPRITE helye a memóriában) 

POKE 53248.100 SPRITE x koordinátája 

POKE 53249.100 SPRITE y koordinátája 

POKE 53269,1 SPRITE bekapcsolása. 

Ezzel megjelenítettük a SPRITE-ot. Ha MULTI-COLOR 
(többszínű) módban szeretnénk látni, akkor még egy POKE-ot 
be kell írni: 

POKE 53276,1 

A négyszeres nagyítást két POKE segítségével érthetjük el. 

POKE 53271,1 x irányú nagyítás 

POKE 53277,1 y irányú nagyítás. 

4. A rendszer betöltve 3 BLOCK-ot foglal el a lemezen. Egy 
SPRITE 1 BLOCK-ot. 

5. Ha két SPRITE-ot ugyanazzal a névvel akarunk kimente¬ 
ni, akkor a íloppy-n a led elkezd villogni. 

Gyárfás Richárd 


O 

O 

o 

o 

o 

o 

o 

O 


o 


o 

o 

o 

o 

o 


10 RÉM ******************************* 
20 RÉM m SPRITE THIEF BY DfiR.K VISION * 
30 RÉM * SOFTWARE. * 
40 RÉM * CQVS> * 
30 RÉM * RGLÜSOFT PRÉSÉNT * 
60 RÉM ******************************* 
70 RÉM 


4S0 

490 

300 

510 

520 

530 

540 


80 OPEN2,8,2,"0=SPRITE,P,W 


ere¬ 


id 


90 PR INT zCHR* C 9*16 > CHR* C 5 > ; 


560 


100 
1 10 
120 
130 
140 
150 
160 
170 
ISO 
190 
208 
210 
220 
230 
240 
230 
260 
270 
280 
290 


RERDR■IFfi=-1THEN130 
8=8-*-R 

PR I NT#2, CPIRíf- <; R> ; •• GOTO 180 

CLOSE2 « I FS=59328THEN 1.68 

OPEM15/8,15,"S ! SPRITE"=CLOSE15 

PRINT"IDATR ERRÜR < PROGRAM> "• STOP 

GOTO780 

ORTR 169,0,141,32,288,141,33,208 
OflTR 169,12,141,134,2,169,1,141 
DRTR 23,288,141,29,288,76,187,5 
DHTH 160,0,177,34,201,13,248,7 
CíH TÓ 32, 71,171,280,76, 178,5,32 
DRTH 71,171,96,169,16,141,248,7 
DRTR 169,1,141,21,288,169,168,141 
ORTH 0,208,169,100,141,1,208,169 
DATR 8,133,249,133,258,32,94,6 
DRTH 32,159,235,32,228,235,201,0 
DRT R 240,246,160,168,162,0,232,208 
DHTH 253,208,288,248,162,128,142,138 
DRTR 2,201,8,248,227,162,0,134 


578 
588 
598 
600 
F. 1 R 
620 
638 
640 
658 
668 
678 
680 
690 
780 
718 
728 
738 
748 
758 
768 


380 ORTR 198,281,43,240,65,201,45,240 
318 ORTR 77,281,95,240,51,201,77,240 


770 

788 


320 

330 

34© 

350 

368 

370 


DRTR 32,201,72,248,31,201,83,248 
OHTH 42,201,133,248,26,201,134,240 
DAT R 25,201,135,248,24,201,32,288 
ORTR 183,169,8,141,21,208,76,226 
DRTR 252,76,151,6,76,159,6,76 
DRTR 167 ,6,76, 178 ,6,76, 184- , 6 


790 

800 

810 

828 

830 

840 


DRTR 189,76,216,5,230,250,230,258 
DRTR 238,258,230,258,76,94,6,169 
ORTR 255,141,28,208,76,216,5,169 
DRTR 8,141,28,208,76,216,5,238 
DRTR 39,288,169,32,141,138,2,76 
DRTR 216,5 , 238,38,208,76,170,6 
DRTR 238,37,208,76,170,6,88,82 
DRTR 69,83,83,32, <35, 78,89,32 
DRTR 75,69,89,13,83', 65,86,69 
DRTR 13,169,0,133,198,169,4,133 
ORTR 214,169,8,133,211,32,16,229 
DRT R 162,6,134,35,169,198,133,34 
DRTR 32,168,5,169,32,141,138,2 
DHTR 169,0,133,198,32,159■255,32 
DRTR 228,255,201,0,248,246,141,63 
DRTR 3,169,83,141,60,3,169,88 
DRTR 141,61,3,169,82,141,62,3 
DRTR 169,8,141,64,3,162,8,32 
DRTR 186,255,169,4,162,68,168,3 
DRTfl 32,189,255,169,0,133,251,169 
DRTR 4,133,252,168,4,169,251,162 
DRTR 65,32,216,255*, 76,94,6,32 
DRTR 91,7,162,8,169,32,157,8 
DRTR 4,169,1,157,0,216,232,208 
DRTR 243,162,0,169,32,157,8,5 
DRTR 169,1,157,0,217,232,224,144 
DRTR 288,241,96,169,8,133,34,162 
DRTR 216,134,35,168,0,145,34,230 
DRTR 34,288,258,238,35,166,35,224 
DRTR 228,208,242,96,-1 
S=. ; 0=828 

RERDR‘IFR=—1THEN810 

POKEU,A*U=U+1 * S=S+A *GOT0798 

IFSÖ3356THENPR. I NT " jrflTR ER.R.ÜF. í. LOADER > 

0=3*256+2 * POKEU,60•POKEU+1,3 

0FEN2,8,2,"®*LOADER <SPRITE >,P,M" 

PR I NT #2, CHR4 ; < 2 > CHRiT <: 3 > , 


0 

0 



0 

0 

0 

0 

0 

0 


388 

390 

480 

418 

420 

438 

440 

450 

468 

470 


DRTR 76,148,6,76,209,6,165,249 
DRTR 2:4 , 105,64,133,249, 165,250,185 
ORTR 8,133,258,76,94,6,165,249 
DRTR 56,233,64,133,249,165,250,233 
DRTR 8,133,258,76,94,6,32,55 
DRT R 7,168,64,120,169,53,133,1 
DRT R 177,249,162,55, 134,1,6*8, 153 
DR TR 8,4,136,192,255,208, 236, 16-9 
DRTR 3,133,214,169,8,133,211,32 
DRTR 188,229, 165,258, 166,249,32:, 205 


858 FÓRI=UT0862 

860 PR I NT « 2, CHR* C PEEK <' I > > , * NEXT * CLÚSE2 * SYS64738 
878 DRT R 76,69,3,83,88,82,73,84 
888 DRTR 69,162,8,160,1,32,186,255 

890 DRTR 169,6,162,63,168,3,32,189 Q 

908 DRTR 2.55,169,8,32,213,255,76,144 
910 DRTR 5,-1 


P.EROY. 













PROGRAM 


& 


o 


o 


o 


o 


:i. o@ rí::í-s + * * * * * * * * * * * * * * * * * * * * * * * * * +. * * 
110 RÉM * COLÜUR BASIC VI.0 C-64* 

130 REI'I * * 

140 RÉM * KÉSZÍTETTE- BRÜCE MAESTRO * 
15© RÉM síi**#***#*#***#*****#*******#* 

160 ; 

170 ■ TOR I«* 49152 TQ 49563 
ISO > -PR INT "a" ; I 
190 >. • = READ A = POKE !,«• S=S+A 

19 THEH PRI NT"HlBA" 


o 

200 

■ > NEXT 


210 

- IF SO ■ 


220 

DATA 

169 

o 

230 

DATA 

141 


240 

DATA 

20 1 

o 

250 

DATA 

076 

260 

DATA 

075 


270 

DATA 

©72 

c 

280 

DATA 

065 


290 

DATA 

066 


300 

DATA 

0 G T 

E 

31© 

DATA 

©68 


320 

DATA 

234 

c 

330 

DATA 

003 

340 

DATA 

003 


35© 

DATA 

O03 


360 

DATA 

003. 


370 

DATA 

003 

o 

380 

DATA 

003. 

390 

DATA 

003 


400 

DATA 

003. 


410 

DATA 

003 


420 

DATA 

255. 

o 

430 

DATA 

032 

440 

DATA 

203. 


450 

DATA 

000 

o 

460 

DATA 

ISO. 

470 

DATA 

167. 


480 

DATA 

174, 

c 

490 

DATA 

034-. 


500 

DATA 

115, 


5.1.0 

DATA 

18.3. 

c 

520 

DATA 

174. 


53© 

DATA 

253. 

0 

540 

DATA 

142, 

559 

DATA 

©32. 


560 

DATA 

158, 

c 

570 

DATA 

©76. 


580 

DATA 

032, 

o 

590 

DATA 

000 . 

600 

DATA 

255. 


61.0 

DATA 

032. 

c 

620 

DATA 

208. 

630 

DATA 

000 


640 

DATA 

ISO, 

E 

650 

DATA 

167. 


666 

DATA 

174. 

o 

670 

DATA 

041 

680 

DATA 

115 


69© 

DATA 

183 

n 

700 

DATA 

174 . 

710 

DATA 

253 


720 

DATA 

142. 

o 

73ű 

Úri 1 n 

032 


740 

DATA 

158 

o 

750 

DATA 

©76 

760 

DATA 

©32 


778 

DATA 

000 

0 

780 

DATA 

255 


79© 

DATA 

032 


800 

DATA 

208 


310 

SVS49152 


,208,O03,032,159,192,201 


5, 192,201 


208 


032, 137, 193,076, 008, 1 


076,174,167,255,032,115 
032,253,174,@32,153,183 
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Colour Basic 

A Colour Basic-ban utasítások sorozatával állíthatjuk gé¬ 
pünk színeit. 

!A,X: többszínű üzemmód 1. színét állíthatjuk be, 

!B,X: többszínű üzemmód 2. színét állíthatjuk be. 

!C,X: többszínű üzemmód 3. színét állíthatjuk be. 

!D,X: többszínű spritc 1. színe. 

!E,X: többszínű spritc 2. színe. 

!K,X: keret szín. 

!H,X: háttér szín. 

!0,X: 0. sprite színe. 

!1,X: 1. sprite színe. 

!2,X: 2. sprite színe. 

!3,X: 3. sprite színe. 

!4,X: 4. sprite színe. 

!5,X: 5. sprite színe. 

!6,X: 6. sprite színe. 

Az X koordinátában azt kell beállítani, hogy milyen színt 
akarunk a spritenek, háttérnek stb. 
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ORBITF 

Összenyomóprogram C + 4-re 


Manapság igen elterjedtek a különféle elven működő 
összenyomó-, másnéven compacker vagy tömörítőprogramok. 
Hogy csak néhányat említsek: a legáltalánosabban használt ilyen 
tömörítők bájlos elven működnek, rendszerint ezeknek legna¬ 
gyobb a hatásfokuk. Utánuk következnek a bitsorozatokat kereső 
és egyéb nyakatekert elvű compackerek, amelyeknek hatásfoka 
már jóval kisebb, megéri azonban ezeket használni, mert a már 
bájtos elven egyszer összetömörített programokat is képesek to¬ 
vább gyömöszölni. Ebbe a kategóriába tartoznak egyébként a 
HCS-packcr és változatai. 

A harmadik „generációs” összenyomok már elég keveset 
nyomnak a programon, mégis a HCS-típusú tömörítők nyomait 
is összébb préselik. Ezek már többnyire statisztikai elven mű¬ 
ködnek. Az itt bemutatott ORBIT F nevű program is ilyen. 

A DATA sorok első látásra soknak tűnnek, ám a helyzet ko¬ 
rántsem ilyen vészes. Ha begépeltük az összes sort, még elindí¬ 
tás előtt feltétlenül mentsük ki a BASIC nyelvű programot, mert 
ennyi karakter begépelésekor annak valószínűsége, hogy vala¬ 
mit félreütöttünk, elég magas. Hibátlan bevitel eseten elindítás¬ 
kor a BASIC lassúsága miatt 3—4 percei kell várnunk a gépi 
kódú sorok bevitelére. Ez idő alatt a $1000—$2830-ig terjedő 
memóriaterületre kerülnek bájtok, így ha a begépelést „tiszta 
lappal” (SlOül es BASIC kezdettel) kezdtük, a DATA sorok fe¬ 
lülíródnak, s ha ezután a program telhívja a figyelmünket az 
egyik sor adathibájára, azt csak az előzőleg kimentett progra¬ 
mon tudjuk kijavítani. 

S ha végül a BASIC program azt üzeni, hogy készen van, 
s kiírja az ORBIT F üzenetet, azonnal írjunk be egy BASIC 
SAVÉ parancsot, hogy a gépi kódú részt kimentsük. A to¬ 
vábbiakban a BASIC DATA sorokra már nem lesz szükség, ele¬ 
gendő a gépi kódú programot betölteni, és RUN-nal futtatni. 
(Aki monitorban szeret bütykörészni, annak elmondom, hogy 
a program kezdő- és végcímét a $2B—$2E bájtokban találja 
($1001—$2826).) 

Elindítás után megjelenik a címképernyő: ez tömören el¬ 
mondja, mi is a program lényege, erről kissé bővebben a későb¬ 
biekben szólok. Majd egy tömör ismertetőt találunk a billen¬ 
tyűkről és a program által használt nulláslapos címekről. Ha ki¬ 
gyönyörködtük magunkat, nyomjuk le egyszerre a SHIFT és a 
CONTROL billentyűket, ekkor hamarosan megjelenik a képér 
nyő tetején a READY felirat, alatta pedig egy csomó kriksz- 
kraksz. Nem kell megijedni, ez maga a program, úgyhogy lehe¬ 
tőleg ne nagyon nyomkodjuk az ESCAPE-et vagy kétszer a 
HOME-ot, hacsak nem akarunk búcsút venni a programtól. 

Akkor hadd szóljak most a program kezeléséről: ha kazettá¬ 
val dolgozunk, az F3 billentyűvel keresgélhetünk, a SHIFT 
megnyomásával visszakapjuk a képet. Ezután a HELP betölti az 
első talált programot. Lemezeseknek sajnos kézzel kell beír¬ 
niuk a DLOAD parancsot, de ezért bőségesen kárpótol, amit a 
program tud. F7-tel kilistázhatjuk a betöltött programot. Fi¬ 
gyelem: ne nagyon használjunk olyan gyorstöltőket, amelyek a 
$0400—04FFés $0600—Ö6FF területeket használják! 

Ha értelmesen akarjuk használni az ORBIT F-et, az össze¬ 
nyomandó programot előzőleg vessük alá egy bájtos és egy HCS 
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d3a204a000bld291d0cOd0f9e6, 
d1e6d3cad0f 2a52dU5d0a52e85, 
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04b00dc903f 01 dc902f 00eaabd , 5ca 
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0120920ca53f 4906d0e7a20220, 46ti 
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263f 91d2 8d19 fíc6d8í004cad0,799 
ed60a90885d8e6d7d0í 4e6d3d0,965 
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031 004684c800t a52b8d7b0í a5,4c6 
2c8d7c0fa52d8d7d0fa62e8d7e , 60d 
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f fa9bca2c0a00e20bdffaD00Q5,77e 
9aa9038523a924ü522a922a003,430 
a22620d8í1a94b8d2403a9ec8d , 689 
2503a900aaa885b2a9078Sb385,5c7 
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00a000ad7b0f 85b2acL7c0 f 85b3, S7e 
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4c038720120ea5b220400ea5b3,4 33 


többel szedne le, annak bájtjait úgy összezavarná, hogy egy báj- 
tos packer már csak a karját tudná tőle sajnálkozóan széttárni. 
Ezért leghasznosabb a lenti módon kétszer összegyűrt progra¬ 
mot adni az ORBIT F-nek. 

Mielőtt azonban nekiesnénk, a biztonság kedvéért nyomjuk 
meg az F5-öt, s győződjünk meg arról, hogy a $2B—$2E címek 
a betöltött program kezdő- és végeimét tartalmazzák-e. Ha ez 
nem így lenne, írjuk át a $2B—$2E címeket. Ezután már nincs 
más teendőnk, mint kényelmesen hátradőlni és gyengéden meg¬ 
billenteni az F2-t. A START után írjuk be a program kezdőcímét 
hezadecimálisan, dollárjel nélkül, avagy, ha az RUN-nal indul, 
a RUN szót. És íme: a program hosszától függően max. 1 percen 
belül megkapjuk az agyongyűrt programot. Ha READY felirat 
helyett a SORRY üzenetei kapjuk, ez arra utal, hogy a program 
már agyon van gyűrve, s ha még az ORBIT F is meggyömködné, 
szegény csak megdagadna. Ha ezt vállaljuk, Y-t nyomjunk, ha 
viszont megesett a szívünk a programon és nem tesszük ki ennek 
a tortúrának, az N megnyomására érintetlenül visszakapjuk az 
eredeti programot. Ha pedig sikeres volt a tömörítés, érdemes 
ismét kipróbálni ugyanezen a programon (az így összenyomott 
program RUN-nal indul!), mert előfordult már, hogy egy prog¬ 
ramot többször is össze tudott tömöríteni az ORBIT F. 

Ha készen vagyunk a tömörítéssel, jöhet a mentés. Lemeze¬ 
sek használhatják az F4-et, kazettásoknak az Fl-et ajánlom; ez 
ugyanis turbóval menti az összenyomott programot kazettára. 
(Az ORBIT F ezért kazettás másolóprogramnak is kitűnően 
használható.) 

Fis most arról, hogyan is működik a program. Tudjuk, hogy 
minden bájt 8 bitből áll, és hogy 8=4+4. Egy 4 bit, azaz nibble 
pedig 16 különféle értéket vehet tél. Az ORBIT F pontosan eze¬ 
ket a nibble-ket kavargatja, innen a neve is. A 16 darab különböző 
nibble-t gyakorisági sorrendbe állítás után egyszerűen felcseré¬ 
lik egy-cgy kóddal, mégpedig a leggyakoribb 4 bit 3 bites kódot 
kap, míg a legritkábbak 5 bitest. Ez kedvező nibble-eloszlás ese¬ 
tén kevesebb bitet eredményez, mint amennyi eredetileg volt. 
Kedvezőtlen eloszlás esetén pedig... Ám a programok nagy 
többsége elviseli ezt a tömörítőt legalább egyszer. 

Kívánok tehát sikeres használatot a programhoz: 
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Lábjegyzetek az MPS-1230 
Felhasználói kézikönyvéhez 


Mindenekelőtt pusztán emlékeztetőül — idézzük fel 
mindazt, amit az ASCII kódokról tudni érdemes. 

Az American Standard Codes fór Information Inlcrchange 
(az információcsere kódjainak amercikai szabványa) 1963-ban 
került bevezetésre. A 0 és 127 közötti intervallumban, 128 karak¬ 
ter helyét definiálja. 


1. TÁBLÁZAT. 

00 NUL 

karakter 

01 SOH 

fejléc kezdete 

02 STX 

szöveg kezdete 

03 ETX 

szöveg vége 

04 EOT 

átvitel vége 

0b ENO 

állomás hívása 

06 ACK 

nyugtázás 

07 BEL 

hangjelzés 

08 BS 

visszaléptetés 

09 HT 

vízszintes tabulálás 

10 LF 

soremelés 

11 VT 

függőleges tabulálás 

12 FF 

lapemelés 

13 CR 

kocsivissza 

14 SO 

váltó ki 

15 Sl 

váltó be 

16 DLE 

adatátvitel átkapcsolása 

17 DC1 

1. készülékvezérlö 

18 DC2 

2. készülékvezérlő 

19 DC3 

3. készülékvezérlő 

20 DC4 

4. készülékvezérlő 

21 NAK 

negatív nyugtázás 

22 SYN 

szinkronizálás 

23 ETB 

átviteli blokk vége 

24 CAN 

érvénytelenítés 

25 EM 

hordozóeszköz vége 

26 SUB 

helyettesítés 

27 ESC 

escape kód 

28 FS 

csoportelválasztó 

29 GS 

csoportelválasztó 

30 RS 

rekordelválasztó 

31 US 

egységelválasztó 

127 DEL 

törlés (delete) 


Az 1. táblázat 33 (0—31. valamint a 127.), úgynevezett ve¬ 
zérlőkaraktert sorol fel. A karakterek többsége csak a profesz- 
szionális adatforgalomban (pl. távközlés) használatos, és csupán 
a kisebbik hányada a — minket is érdeklő — nyomtatóvezérlő 
kód. 

A 2. táblázat a vezérlőkódok szimbólumait is tartalmazza. 
Közülük csupán a 3—6. kódú (kör; káró; treff; pikk) nyomtatha¬ 
tó, de csakis az IBM karakterkészlettel dolgozó nyomtatókkal. 
Ugyanakkor az IBM PC-család képernyőin megjeleníthetőek. 

2. TÁBLÁZAT 

A 2. táblázat már átvezet az ún. bővített ASCII kódtábla fo¬ 
galmához .Mint látható, ez a táblázat további 128 karaktert tartal¬ 
maz, a 128—255 közötti intervallumban. Megjelennek a „kül¬ 
földiek” által használt karakterek, így néhány magyar írásban 
használatos ékezetes karakter, továbbá görög betűk, és tetszetős 
keretező karakterek. 

Az MPS-1230 printer, csak a PROPRINTER és az IBM .G. P. 
emulációban tudja elérni az IBM. INTERNATIONAL 1. karak¬ 
terkészletet. Márpedig ez a karakterkészlet csak 2 karakterrel 
(249 és 250) tér el az eredeti bővített ASCII karaktertáblától. 
Azonban, eléggé el nem ítélhető módon az ASCII táblázat — a 


nevében deklarált szabvány jellege ellenére is — csupán ajánlás. 

A legnagyobb eltérést az EPSON emuláció, valamint a 
COMMODORE-command által elérhető kódtáblákban tapasz¬ 
talhatjuk. Lényeges különbség például a nagy-, és kisbetűk fel¬ 
cserélése; a 0—31. közötti vezérlőkarakterek ismétlése a 
128—143 közötti intervallumban; a keretező karakterek hiánya. 

Ráadásul van még egy alattomos — de szerencsére kivédhe¬ 
tő — eltérés is. Nevezetesen a HC gépek, minden logikai sor ki¬ 
íratása után kiadnak egy chr$(13) kódot. (Kocsivissza + soreme¬ 
lés.) Csakhogy ezt a kódot minden PC. ,,kocsivisszá”nak értel¬ 
mez, soremelés nélkül. így például egy program listája egyetlen, 
fekete sáv lesz. Legegyszerűbben úgy egalizálhatjuk ezt az elté¬ 
rést, ha a SET UP eljárás során az alábbi ajánlatokat fogadjuk el: 
LF = LE + CR; CR = CR + LF 
A továbbiakban egy érdekességre szeretném felhívni a fi¬ 
gyelmet. Az alábbi sor egy részlet az IBM INTERNATIONAL 
I kódtáblából. 

Q é á Hi l - oc = 

Figyeljük meg a balról negyedik, keretező karaktert 
(chr$(176)). Tessék utánaszámolni: 11 sorból áll!! Persze ez 
szükségszerű, hiszen egy függőleges keretvonalnak a sorközöket 
is le kell fednie. (Következésképpen több tizenegysoros karakter 
van még.) 

Próbáljuk meg „leleplezni a trükköt”! Mindenekelőtt a 
SET UP eljárással jelöljük ki az alábbiakat: 

SERIAL COMMODORE 
PROPRINTER vagy IBM G.P. 

INTERNATIONAL 1 
USA/UK, 

valamint a fentebb említett LF/CR variációkat. 

Ezután írjuk be az alábbi pár soros programocskát: 

10 open 1,4 

20 print#1," *"chr$(176);tab(70)"*" 

30 closel 

Futtatva a programot, kinyomtatódik a két csillag, közöttük 
a tizcncgysoros karakterrel. A nyomtatófej a baloldalon marad. 
Most pedig koncentráljunk! Tegyük ujjúnkat a nyomtató LO- 
CAL gombjára, és indítsuk el ismét a programot. Amint kiíró¬ 
dott a keretező karakter, azonnal nyomjuk meg a LOCAL-t. A 
jobboldali csillag még kinyomtatódik, de a nyomtatófej vissza¬ 
tértében félúton megáll. Ekkor megfigyelhetjük, hogy a keretező 
karakter még normál magasságú. Újra megnyomva a LOCAL-l, 
a nyomtatófej pontosan a helyére nyomtatja a karakter hiányzó, 
sorköznyi darabját. 

Befejezésül, még egy érdekesség. írjuk be 
programot: 

10 rém PC. keret 
20 : 

30 open4,4:open5,5,7:goto 70 
40 print#4," "chr$(186)tab(35)chr$(186>;: return 
50 tor I 1 to 35 

60 print#4,chr$(205);:next Ereturn 
70 print#4," ”chr$(201);:gosub 50 
80 print#4,chr$(187) 

90 tor k I lo 4:gosub 40 
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100 n = 0: if k/2 = inl(k/2) then n = 32 
110 prinl#5,tab(9); 

120 fór I 65 to 90:print#5,chr$(l + n);:next I 
130 print#4:next k:gosub 40 
140 print#4,chr$(10I" "chr$(200); 

150 gosub 50:print#4,chr$(188) 

160 close4:close5:end 

Ha a fentebb javallott SET UP eljárás után lefuttatjuk a prog¬ 
ramot, az alábbi printeroutputot kapjuk: 


abcdefqhij kimnopqrstuvwxyz 
ABCDEFGHIJKLMNOPQRSTUVWXYZ 
abcdefghij kimnopqrstuvwxyz 
ABCDEFGHIJKLMNOPQRSTUVWXYZ 


Persze első blickre mindez öncélú, gyermekded játéknak 
tűnhet. Ám ha a teljes magyar ékezetes karakterek mellett, a PC. 
keretező karaktereire is igényt tartunk, máris értelmet nyert a 
fenti rutin. De erről talán egy más alkalommal... 

Szász Sándor 
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Az ereik ti amerikai ASCII kódláb lázai 


*Az 1. táblázat az Oxford Számítástechnikai Értelmező Szótár (NOVOTRADE 
KIADÓ 1989.) ASCII szócikke alapján készült. A 2. táblázat az ALAPLAP 
1990/6. számának 4. oldaláról származik. 


Hexadecimális táblázat 
készítés a memóriában 

91/11. szám 13. oldalán Egy trükk címmel azt fejtegettem, 
hogy ezt a speciális feladatot a READ-DATA kombináció helyett 
kevesebb írással meg lehet oldani. A javasolt számátalakítás 
azonban lassú. A következtetésem azt volt, hogy a kettő közül 
kell választani. Ez sem igaz! 

Van egy harmadik lehetőség is: a szövegátalakítással! Ez is 
rövid rutin, és kb. olyan gyors, mint a RAD-DATA mód. Csodál¬ 
kozással említem meg, hogy a 2. és 3. változattal a szakirodalom¬ 
ban még nem találkoztam! Talán a szerzőket a programhossz 
alapján díjazzák. Egyébként elismerem, a DATA sorok a sok 
idézőjellel és vesszővel nagyon jól mutatnak; és becsülettel töltik 
a lemezek blokkjait. 

Teljesség kedvéért mindhárom megoldást leírom. 

Stopper nélkül is érezhető a különbség! Van más mód is? 
Mivel a saját hibák bölcsebbé teszik az embert, azt kell monda¬ 
nom, nincs kizárva! 

íme egy (talán) ideillő vicc! 

Egy gyereknek azt mondja az apja: te, fiam, hol jártál, hogy 
térdig sáros vagy; hiszen ebben a kánikulában nincs is sár! 

A fiú válasza: dehogy nincs apám, csak keresni kell! 

A BASIC nyelv is „aszályosnak” tűnik, mégis érdemes 
keresni... 

Mesterházi Sándor 


1. változat: 

10 DIM H*(255>:REM READ-DATA MEGOLDÁS 
100 FORI=0TO255:READH*(I):NEXT3 
30000 DATA "OO","01","02".. 


30090 DATA .. "FD" , "CE" , "FF" 

2. változat: 

1159 D1M H*<255>:REM ‘91/11. SZAMATALAKITASSAL 

1160 FÓRI—0T0255:H~1 

1161 F0RJ=1T00STEP—1 

1162 A=INT<H/ U6T.I) ) : H=H- (A* (16TJ) ) 

1163 H$ (I) =H* II) +CHR$ (A+48-- (A>9) *7) 

1164 NEXTJ : PR1NT I “ = "H*Q> 

1165 NEXTI 

3. változat: 

1159 DIM H*<235):REM SZÜVEGATALAKITASSÁL 

1160 A*="0123456789ABCDEF":0-0 

1161 FÓRI-0T0240STEP16:0=0+1 

1162 FÖRJ--0T015 

1163 H*a+J1»M1D*<A*,0, D+MXD* (A*, J+l, 1) 

1164 PRINTI+J" = "H*<I+J>:NEXTJ 

1165 NEXTI 
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PROGRAM 


Directory kezelő 

Ez a kis „utility program" hasznos szolgáltatásokat tehet, 
ha a lemez BAM-jébe szeretnénk ,,belenyúlni”. Működése leg¬ 
egyszerűbben az egyes funkciókon keresztül mutatható be, 

1. Directory. Kiírja a file-ok neveit, típusait, „(fellel az esetle¬ 
ges törlés elleni védelmet. 

Egy menetben max. 20 fiié nevet ír ki. A kiírás (F—l)-re foly¬ 
tatódik. 

2. Lemez átnevezés. 

3. Fiié átnevezés. 

Mindkét átnevezéskor a névképzés általános szabályait kell 
követni. (Pl. LEN (,,NÉV”)<=16) 

4. Filc védelem be. 

5. Fiié védelem ki. 

6. Fiié törlés. Mindig megerősítést vár a törlési szándékra vo¬ 
natkozóan. Igenlő válasz esetén, védett file-ot is töröl. 

A fiié átnevezés és törlés a megszokott BASIC utasításokkal 
történik, míg a többi funkció az. úgynevezett közvetlen elérésű 


utasításokat használja. Ezeket az. utasításokat nagyon pontosan 
kell beírni a programba, különben nagyon csúnyán, ,belepiszkít- 
hatunk” a BAM-be. Netán olyannyira, hogy a lemez, használha¬ 
tatlanná válik. (Persze nem fizikailag.) Célszerű tehát, szolgála¬ 
ton kívüli lemezekkel végezni a programbelövést. 

A műveletek kijelölése után, a fiié nevét kéri a program. 
Elegendő az első néhány karaktert megadni. Ha a program a 
megadott karakterekkel kezdődő nevet talál, a teljes lile nevet 
„kínálja” tél. Ha nem fogadjuk el, tovább keres. A végrehajtás 
akkor kezdődik el, ha egy névre igennel válaszolunk. 

A program kokkrekt működéséhez „tisztába tett" tartalom¬ 
jegyzék szükségeltetik. Emiatt minden lemezen először egy 
VALIDATE processzus zajlik le. (A file-ok újraszervezése.) 

FIGYELEM! Ha a lemezen véletlen-file-ok vannak, azok 
blokkjai törlődnek!! 

Szász Sándor 

Felhasznált irodalom: A VC-1541-es lemezegység programozása DATA BF.C 
KF.R - NOVOTRADE Kiadó. 
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'400 print "51*13 Az uj 1 emez név: - í3 "; : gosub i 60: un4==ff> 

410 w4-lef I".í ( ! l ; +pul , 16) : tt : - f.U;; : 3S«Ü 
420 p=144: gosub 120: print#2 T w4-s : goto 920 
430 print "3 A fiié neve: ü " 

440 q o s u b 1.6 0: q f = 0: f 1 -= 0 
450 t = 18:11 - t: s »1: s o=3: s ; = s 
460 p=0:gosub 110 

470 get#2, x4: i f x4=" " then x4=chr4(0) 

480 t-ase <x4) :: if t<>0 then tt=t 
49(3 get #2if :<■* then f-chr4 Í0) 

500 s=asc (x4) : if s< >255 then ss= :: s 

510 tor x=0 to 7 

520 p*x*32+2:gosub 120 

530 get#2,xí: i f x4* ,,M then x4=chr4(0) 

540 if asc: í$) -0 then 760 
550 z =asc (4 ) 

560 p«.x*32+5: gosub 120 

570 f f 4-" " ; ■{■ ar y=0 to 15 

580 get#2, x$: i f xí?® 5 "" then x4=chr4 (0) 

590 if asc (xí?) =160 then 610 

600 ff 4=ff4+x4 

610 next y:if f1=0 then 690 

620 so=sot ■l / : pr i nt 1 ef ti? (f f ?Mpu4, 16) ; 

630 ve=0:if (z and 64)=0 then 650 
640 z«z-64:ve=l 

650 print " "ty#(z-128);:if ve then print" <":goto 670 
660 print 

670 if so/18<>int(so/18) then 760 
680 50=0: gosub 970: pri nt "sEEI; goto 7ót» 

690 if f í?< >lef ti? Cf f í?,ho) then 760 
700 print "Sffiffí? 

710 print "SniJ.K. a fiié ? "; : gosub 130 
720 f=8:if wl? 5 ="n" then f =6: goto 74»á 
730 qf=x+l:x-7 

740 far 1-f to 15:poke 781,1:syss 59903:next 1 
750 poke 214,f:sys 58640 
760 next x sif gf then 790 
770 if t<>0 then 460 

780 i f fl~-0 then print "3 A fiié nem létezik ! ! ": goto 960 
790 if q == 1 then 960 

800 if q>3 then p»<qf-.l) *32+2:goto 830 
810 print "3 Az uj filenev: jfl ";:gosub 160 
020 pr i n't II15, " r : "+f f+ " = " H : f 4:: goto 950 
030 if (z and 64)=0 then ve*0:goto 870 
840 ve=1: i f q=5 then 900 

850 print "SF513 fiié vedet t ! ": i q—4 then 960 
860 goto 000 

870 i f q=4 t h e n k = z + 6 4: q o t o 9 1 ű 

000 if q~6 then print"5!5I2 Töröljem ? ifc : gosub 130: i f w4="n" 
090 if ve—0 then 940 
900 k=z-64 

910 g o s u b 12 0: p r i n t # 2, c h r 4 ( k) ; 

9 2 0 p—0: g o s u b 12 0 

930 print# 15,, "u2 2 0";tt;ss 

940 if q-6 then print#15, "s: "h f fi- 

950 print "SIsUef t$ (me$ (q) , 16) "végrehajtva ! I" 
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O 

O 
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960 re=0:c1ose2:c1 őse15 
970 pr i nt spc < 17) "51?F-.1 > 

980 get w4: if w4<>chr4(133) 
990 if re then return 
1000 q=0:goto 200 

ready. 


if q-7 then end 


elten 980 
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80 KARAKTERES JEGYZETTÖMB 
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1 rém *******>tí**************>K>K>l:***>K*:tí* 

2 rém"* C= Újság Ssz.: * 

3 rém"* Jegyzettömb 80 C-128 * 

4 rém"* Program: Szolnoki Béla * 

3 rém ******************************** 
6 : 

7 : 


8 print chr$(147)"data beolvasás es ellenőrzés . . . " ; : j=49152:ve=49976:p=j 

9 fór b=0 to 7:read a$ 

10 l=aac(mid$(a$,2,1) ) 

11 h=asc(mid$(a$,1,1) ) 


12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 
67 


b:read a:if a=t then 18 
sor:"peek(64)*256+peek(63)rend 


1=1-48:if 1>9 then 1=1-7 
h=h-48:if h>9 then h=h-7 
print , ‘SG»***#**H'r , p; :p=p+l 
if h>15 or 1>15 then 17 
a=h*16+lrpoke j+b,a:t=t+a:next 
print:print"data hiba ... 
t=0:j=j+8:if j<ve then 9 
prinfíHlkesz": end 
data a9,18,85,e4,a9,00,85,e5,1085 
data 85,e6,a9,4f,85,e7,a9,06,1150 
data a2,22,20,cc,cd,a9,58,a2,1056 
data 23,20,cc,cd,a2,00,bd,6b,0934 
data 04,20,d2,ff,e8,e0,5b,d0,1256 
data f5,a9,02,85,e5,a9,93,20,1126 
data d2,ff,a9,01,a2,la,20,cc,1059 
data cd,ad,c6,04,c9,00,d0,12,1007 
data a9,60,8d,a6,05,20,c7,04,0812 
data a9,4c,8d,a6,05,a9,ff,8d,1122 
data c6,04,ea,ea,ea,a5,91,c9,1415 
data 7f,f0,03,4c,40,fa,a9,c6,1127 
data 8d,02,03,a9,4d,8d,03,03,0539 
data 4c,40,fa,lb,52,0e,lb,45,0609 
data lb,55,93,90,12,20,20,20,0517 
data 20,20,20,20,20,20,20,20,0256 
data 20,20,20,20,20,20,20,20,0256 
data c3,4f,4d,4d,4f,44,4f,52,0736 
data 45,20,c3,31,32,38,20,2d,0528 
data 20,38,30,20,2d,20,c3,48,0512 
data 41,52,41,43,54,45,52,20,0546 
data 2d,20,c4,49,53,50,4c,41,0650 
data 59,20,20,20,20,20,20,20,0313 
data 20,20,20,20,20,20,20,20,0256 
data 20,20,20,20,20,92,00,a9,0475 
data 00,85,fb,85,fd,a9,13,85,1091 
data fc,a9,19,85,fe,a2,03,a0,1158 
data 00,bl,fb,91,fd,88,d0,f9,1419 
data e6,fc,e6,fe,ca,d0,f2,a9,1787 
data 13,85,fc,a9,16,85,fe,a2,1144 
data 03,bl,fd,91,fb,88,d0,f9,1422 
data e6,fc,e6,fe,ca,d0,f2,a9,1787 
data 19,85,fc,a9,16,85,fe,a2,1150 
data 03,bl,fb,91,fd,88,d0,f9,1422 
data e6,fc,e6,fe,ca,d0,f2,a9,1787 
data 24,a2,07,20,cc,cd,a9,10,0831 
data a2,14,20,cc,cd,8d,2f,0a,0821 
data a9,21,a2,06,20,cc,cd,a9,0980 
data 32,a2,12,20,cc,cd,a9,03,0843 
data a2,13,20,cc,cd,a9,10,20,0839 
data ca,cd,a9,22,a2,12,20,cc,1026 
data cd,a9,03,a2,13,20,cc,cd,0999 
data a9,10,20,ca,cd,a9,10,a2,0971 
data 12,20,cc,cd,a9,00,a2,13,0809 
data 20,cc,cd,85,fb,a0,0b,a9,1165 
data 80,20,ca,cd,c6,fb,d0,f9.1473 
data 88,d0,f6,a9,07,a2,12,20,0978 
data cc,cd,a9,d0,a2,13,20,cc,1203 


Amikor az ember programoz, gyak¬ 
ran hiányzik egy olyan jegyzetblokk, 
amelyre rövid emlékeztetőket lehet télír¬ 
ni. A Jegyzettömb 80 a képernyőt nyolc 
sorral nagyobbítja meg. Ebbe a nyolc sor¬ 
ba rakhatjuk le a jegyzeteinket. Két oldal 
áll a rendelkezésre, amelyeket a (SHIFT), 
a (CTRL) és a (CBM) billentyűk egyszer¬ 
re történő megnyomásával lehet fölülírni. 
Ha megnyomjuk ezeket a gombokat, ak¬ 
kor a képernyőn a 17—24. sorban álló in¬ 
formációkat a látható jegyzetblokkba má¬ 
soljuk. Az oldalak között a (SHIFT) 
(CTRL)-lel lehet váltani. A (CTRL) 
(CBM) megnyomásával a látható jegy¬ 
zetblokk sorai a 17—24. sorokba íródnak, 
és azokat ott editálni lehet. Azaz ettől 
kezdve semmi akadálya annak, hogy a 
64-es BASIC programokat a 128-as mód¬ 
ban, annak minden editálási komfortjával 
egyetemben adjuk be. 

A jegyzettömb két oldala a 
$1300—$1580 és a $1600—$1880 területe¬ 
ken állnak. Az alábbi BASIC parancsok¬ 
kal ezeket rendkívül egyszerűen lehet le¬ 
mezre menteni: 

BANK 0:BSAVE"oldali ",P(DEC 
("1300")) TO P(DEC(" 1580 ")) 

BANK 0: BSAVE "oldal2 ", P(DEC 
(" 1600")) TO P(DEC(" 1880 ")) 

Az oldalak betöltése egyszerűen a 
BLOAD "oldalX" paranccsal lehetsé¬ 
ges. Akinek nem tetszenek a képernyő szí¬ 
nek, az a POKE 49203, szín utasítással a 
keretet és a karaktereket átszínezheti. A 
POKE 49499,\ paranccsal a felső szélt le¬ 
het beállítani. Az x értéke kb. 35 körül le¬ 
gyen, de az nagyban függ a csatlakoztatott 
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monitortól. A fenti három POKE utasítás 
hatása csak a SYS 49884 után lép életbe. 

A program a tárolóban a 49152— 
50176 területen áll. Az indítás után bemá¬ 
solja magát a (nem használt) 40 karakte¬ 
res képernyőbe az 1024-es címtől kezdve. 
Ezt a területet tehát nem szabad fölülírni. 
Ha a Jegyzettömb 80 programot a SYS 
49884 utasítással inicializáltuk, a49152— 
50176 között álló területet nem szabad 
használni. 

Sok örömet kívánunk ehhez a sok se¬ 
gítséget kínáló bővítéshez! 


68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 


data 

data 

data 

data 

data 

data 

data 

data 

data 

data 

data 

data 

data 

data 

data 

data 

data 

data 

data 

data 

data 


cd,a9, 
02,85, 
c8,d0, 
f2,a0, 
cd,c8, 

fa, a9, 
a9,00, 

fb, a8, 
20,d8, 
e6,fc, 
85,fc, 
c0,80, 
05,a2, 
a2,13, 

fc, a9, 

fb, 20, 

fc, c6, 
fc.bl, 
80,d0, 
85,e5, 
61,b0, 


00,85 
fd ,bl 
f 8, e6 
00, b9 
c0,80 
05, a2 
a2,13 
a9,02 
cd, 91 
c6, fd 
20, d8 
d0, f 6 
12,20 
20, cc 
02,85 
ca, cd 
fd, d0 
fb, 20 
f6,4c 
38, a5 
02, c6 


, fb, 
, fb, 
,fc, 
, 00 , 
,d0, 
, 12 , 
, 20 , 
.85. 
.fb, 
,d0, 
• cd, 
,4c, 
,cc, 
.cd, 
, fd, 
, c8, 
, f 2, 
, ca, 
.65, 
,61, 
,62, 


86,fc, 
20,ca, 
c6,fd, 
15,20, 
f5,4c, 
20,cc, 

cc, cd, 
fd,86, 
c8,d0, 
f2,a9, 
91,fb, 
65,fa, 

cd, a9, 
85,fb, 
a0,00, 
d0,f8, 
a9,15, 
cd,c8, 
fa,a9, 
e9,02, 
a9,3f, 


a9,1313 
cd,1255 
d0,1797 

ca, 0842 
65,1355 
cd,1045 
85,0924 
fc,1362 
f8.1505 
15,1573 
c8,1434 
a9,1370 
00,0795 
86,1140 

bl, 1146 
e6,1576 
85,1476 
c0,1511 
01,1179 
85,1048 
8d,0944 
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89 data 

90 data 

91 data 

92 data 

93 data 

94 data 

95 data 

96 data 

97 data 

98 data 

99 data 

100 data 

101 data 

102 data 

103 data 

104 data 

105 data 

106 data 

107 data 

108 data 

109 data 

110 data 

111 data 

112 data 

113 data 

114 data 

115 data 

116 data 

117 data 

118 data 

119 data 

120 data 

121 data 

122 data 

123 data 

READY. 


00,ff, 
bl,61, 
c8,d0, 
aa,f0, 
69,00, 
aa,e8, 
fe,18, 
a9,00, 
eb,48, 
00,a6, 
20,7d, 
68,85 
18, a5 
02, e6 
c6,4d 
4c, a9 
df ,05 
04, c9 
c9,09 
65, fa 
03,8e 
16,a2 
03,4c 
85, fd 
85, fe 
91, fd 
fe ,ca 
00,8d 
18,03 
06,8d 
16, a2 
03,58 
60,8d 
00,04 
5b, 04 


a9,00, 
f0,28, 
f5,85, 
0e,48, 
ca,d0, 
a5,ff. 
90,de, 
8d,00, 
20,7d, 

fe, a9, 

ff, 3e, 
,eb,a9 
,61,69 
,62,a9 
,a5,d3 
,05,c9 
,c9,05 
,08,d0 
,d0,03 
, a9,c6 
,03,03 
,06,8d 
,65,fa 
,a9,c0 
,a2,04 
,88,d0 
,d0,f2 
,00,ff 
,Be,19 
,14,03 
,06,8d 
,a9,00 
,68,04 
,a9,4c 
,60,ff 


a8,aa, 
c9,20, 
ff ,8a, 
a5,ff, 
f9,85, 
18,65, 
c0,02, 
ff,c6, 
ff,12, 
00,20, 
lb,51, 
,8d,20 
,02,85 
,02,85 
,c9,07 
,06,d0 
,d0,03 
,03,4c 
,4c,cf 
,a2,4d 
,4c,65 
,02,03 
,a9,00 
,85,fc 
,a0,00 
,f9,e6 
,4c,ff 
,78,a2 
,03,a9 
,8e,15 
,02,03 
,8d,c6 
,8d,5b 
,8d,68 
.ff,ff 


85,fe,1149 
d0,03,0998 
29,07,1227 
18,2a,0982 
ff,68,1256 
fe,85,1334 
30,db,1103 
eb,a5,1163 
13,3c,0816 
32,8e,0813 
0d,00,0595 
,d2,ff,1279 
,61,90,0767 
,e5,4c,0939 
,d0,03,1070 
,03,4c,0744 
,4c,c7,0920 
,c2,06,0700 
,06,4c,0786 
,8d,02,1100 
,fa,a9,0747 
,8e,03,0481 
,85.fb,0983 
,a9,04,1305 
,bl,fb,1141 
,fc,e6,1703 
,06,a9,1412 
,04,8d,0823 
,9a,a2,0682 
,03,a9,0505 
,8e,03,0481 
,04,a9,0772 
,04,20,0613 
,04,8d,0639 
,00,00,0956 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


Hosszú vezeték okozta zavarok 

Gyakran használnak dugaszolókból és lapos kábelből álló 
csatlakozó hosszabításokat abból a célból, hogy a számítógép 
mögötti helyet szabadon hagyják, és az egyes perifériákat kissé 
távolabb helyezhessék el. Olyankor is szükség van erre, amikor 
a C64-ct PC-házba helyezik el. 

A lapos kábel egyes ereinek erős egymásra hatása miatt 
üzem közben az 1764,1750 memória bővítők működésében zava¬ 
rok, hibák lépnek fel. 

Ezeket tehát közvetlenül a modulkapuknál használjuk bőví¬ 
tőn (expanderen) keresztül. 


Helytelen kábel: lassú lemezegység 

A közismerten gyors 1571 és 1581 lemezegységek és C128 
együttes üzeménél gyakran állapíthatjuk meg, hogy ezek sajátos 
módon a C64-nél szokásos lassú üzemmódban dolgoznak. 

Ennek az az oka, hogy az összekötő kábelt elcserélték. Az 
1541-hez és a legtöbb nyomtatóhoz csak egy ötpólusú kábelt mel¬ 


lékelnek, amikben nincs bekötve az SRQ vezeték. Mivel azon¬ 
ban gyors üzemmódban erre a bekötésre is szükség lenne, a le¬ 
mezegység átkapcsol lassú (C64—1541) üzemmódba. 

A megoldás rendkívül egyszerű: kapcsolja a lemezegységet 
első készülékként a számítógépre az eredetileg hozzá mellékelt 
kábelével. 


Véletlen számok 

A videoprocesszor is képes (csaknem) véletlen számokat 
generálni. Adva van ugyanis az a lehetőség, hogy annak a rasz¬ 
tersornak a sorszámát lekérdezzük, ahol éppen az elektronsugár 
tartózkodik. Mivel a kép másodpercenként 60-szor újra képző¬ 
dik, és a képernyőn mintegy 300 rasztersor van, a rekesz tartal¬ 
ma másodpercenként mintegy 15000-szer változik. Ekkor ugyan 
nem valódi véletlen számok generálódnak, mivel a rekesz értéke 
mindig 1-gyel növekszik. Ez azonban olyan gyorsan zajlik le, 
hogy ezt a rekeszt lekérdezve leglábbis BASIC-ban garantáltan 
kiszámíthatatlan véletlen számok képezhetők. A rekesz lekérde¬ 
ző utasítása: 

PRINT PEEK (53266) 
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5-RE VÉGZŐDŐ SORSZÁMÚ SOROKAT NEM KELL BEÍRNI! 

RÉM *************************** 

RÉM * KLICK-KLACK * 

RÉM * KÉSZÍTETTE: * 

RÉM * LOOS JÓZSEF * 

RÉM * COMMODORE PLUSZ4 GEPRE. * 

RÉM *************************** 

VOL 7 

pr i nt ■ aaa gjaiMiMiaiMa a* 

RÉM CCLRI 5XCLE] 9XCJ0BB] CCTR/9] 16XCSPC] CCTR/0] 

PR I NT “ kfeMCMfelLlá KLICK-KLACK X" 

RÉM 9XCJ0BBI [CTR/9I 3XCSPC] 2XISPCI CCTR/0] 

PRINT’>|®ll*i||*ia H“ 

RÉM 9XCJOBB] CCTR/9] 16XISPC] CCTR/0] 

PRINT”SOOLSOFT)“:SOUNO 2, 780, 2 
RÉM 7XCLE] 12XCJ0BBI 
FÓR Q=1 TO 1200:NEXT Q:50UND 1,890,2 
PRINT"rWr-HIA JÁTÉKKAL REFLEX ÉRZÉKÜNKÉT TEHETJÜK" 

RÉM CCLR] 2XCLE] CJOBB] 

PR I NT" ÍJPROBARA 
RÉM CJOBB] 

PRINT"KJsJlA SZAMOK FELETT ELHALADÓ VONALAKRA “ 

RÉM CLE] CJOBB] 

print-jkell reagálni." 

RÉM CJOBB] 

PRINT"JÍJA GÉP ÁLTÁL GENERÁLT NÉGYJEGYŰ SZAMOT" 

RÉM CLEÍ CJOBB] 

PR I NT" ÍJÍELL ELTALÁLNI, A SZAMOK FELETT ELHA-" 

RÉM CJOBB] 

PR INT "KJ-ADÓ VONALAK SEGITSEGEVEL 
RÉM CJOBB] 

PRINT”ÍWHA IDŐBEN JELEZTÜNK, IDŐBEN ÁLLÍTOTTUK" 

RÉM CLE] CJOBB] 

PRINT"MCG A VONALAT A MEGFELELŐ SZÁM FELETT," 

RÉM CJOBB] 

PR INT "ÍJAKKOR A GÉP ÁLTÁL GENERÁLT SZÁM UTOLSO” 

RÉM CJOBB] 

PRINT"ÍJSZAMJEGYE ELTŰNIK, a NÉGY SZÁM ELTALA-" 

RÉM [JOBB] 

PRINT"?iLASA ESETEN A GÉP AZ ELTELT IDŐT " 

RÉM [JOBB] 

PRINT"fJKOZLI. * 

RÉM [JOBB] 

PRINT" KJtJAZ ÖTLET : R T L MUHOLDASTEVE, GYERMEK " : PR INT "([PROGRAMJA ALAPJAN. " 

RÉM CLE] CJOBB] [JOBB] 

PRINT'SWa TOVÁBB- BÁRMELYIK BILL.-VÉL. S":SOUNO 1,890,2: GETKEY C$:SOUNO 2,999,2 
RÉM CLE] [JOBB] CCTR/9] CCTR/0] 

RÉM -JATEKKEP- 

GRAPHIC 1,1 

CHAR 1.4,16,"1 2 3 4 5 6 7 8 9" 

FÓR 1=0 TO 200 STEP 24 
DRAW 1,36+1,138 TO 36+1,144 
NEXT I 

BOX 1,50,20,80,80 

BOX 1,90,20,120,80:BOX 1,130,20,160,80:BOX 1,170,20,200,80 

CHAR 1,0,21,“========================================“:SOUND 1,890,2 

RÉM 40XC=] 

CHAR 1,26,22,"'M' -RÖGZÍTÉS" 

CHAR 1,26,23,"'V' -STOP”:SOUND 1,800,2 

RÉM-VELETELEN- 

V=0:A=9528:B=A 

V=V+1:IF V=5 THEN GOTO 1240 

S(V)=INT(RND(1>+9+1) 

IF S(V>=1 THEN RESTORE 610:GOTO 520 
IF S(V>=2 THEN RESTORE 680:GOTO 520 


1. A program kezelése: 

M — rögzítés, vonal megállí¬ 
tása 

V — STOP, vége, kilépés a 
rendszerből. 

2. A program célja: 

A játékkal reflexérzékünket te¬ 
hetjük próbára. 

3. A program műfaja: ügyességi 
játék. 

4. A program leírása: 

Az ötlet az RTL műholdastévé, 
gyermek programja alapján szü¬ 
letett. A számok felett elhaladó 
vonalakra kell reagálni. A gép ál¬ 
tal generált négyjegyű számot 
kell eltalálni, az alsó sorban lévő 
számok felett elhaladó vonalak 
segítségével. Ha időben jelzett a 
játékos, időben állította meg a 
vonalat a megfelelő szám felett, 
akkor a gép által generált szám 
utolsó számjegye eltűnik. A négy 
szám eltalálása esetén a gép az 
eltelt játékidőt közli a játékossal. 
Új játék kérésekor, a játék meg- 
unásig folytatható. 

5. Programozási feladatok meg¬ 
oldása 

- a véletlenszám generálása, 
grafikai megjelenítése 

- játékidő mérése 

- haladó vonal létrehozása, 
találat érzékelése. 

Loós József 
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450 IF S(V)=3 THEN RESTORE 750:GOTO 520 

460 IF S(V)=4 THEN RESTORE 820:GOTO 520 

470 IF S(V)=5 THEN RESTORE 890:GOTO 520 

480 IF S(V)=6 THEN RESTORE 960:GOTO 520 

490 IF S(V)=7 THEN RESTORE 1030:GOTO 520 

500 IF S(V)=8 THEN RESTORE 1100:GOTO 520 

510 IF S(V)=9 THEN RESTORE 1170 

520 FÓR Kl=l TO 3 

530 FÓR H=0 TO 15 

540 READ L 

550 POKE A+H.L 

560 NEXT H 

570 A=A+320 

580 NEXT KI 

590 A=B:A=A+40:8=A 

600 SOUND 1,980,2:GOTO 410 

610 RÉM-1 - 

620 DATA 7,15,31,63,127,255,7,7 

630 DATA 224,224,224,224,224,224,224,224 

640 DATA 7,7,7,7,7,7, 7,7 

650 DATA 224,224,224,224,224,224,224,224 

660 DATA 7,7,7,7,7,255,255,255 

670 DATA 224,224,224,224,224,255,255,255 

680 RÉM-2- 

690 DATA 31,63,127,248,240,0,0,0 
700 DATA 248,252,254,31,15,15,15,15 
710 DATA 0,0,0,0,0,0, 1,3 
720 DATA 15,15,31,62,124,248,240,224 
730 DATA 7,15,31,62,127,255,255,255 
740 DATA 192,128,0,0,255,255,255,255 

750 RÉM-3- 

760 DATA 255,255,255,0,0,0,0,1 

770 DATA 255,255,255,30,60,120,240,224 

780 DATA 3,7, 15, 1,0,0,0,0 

790 DATA 192,128,224,248,126,31,15,15 

800 DATA 0,0,240,240,248,127,63,31 

810 DATA 15,15,15,15,31,254,252,248 

820 RÉM-4- 

830 DATA 1, 1,3,3,7, 7, 15, 15 

840 DATA 248,248,248,248,248,248,120,120 

850 DATA 30,30,60,60,120,120,255,255 

860 DATA 120,120,120,120,120,120,255,255 

870 DATA 255,255,0,0,0,0,0,0 

880 DATA 255, 255,120,120,120,120,120,120 

890 RÉM-5- 

900 DATA 255,255,255,224,224,224,255,255 
910 DATA 255,255,255,0,0,0,248,252 
920 DATA 255,0,0,0,0,0,0,0 
930 DATA 254,63,31,15,15,15,15,15 
940 DATA 0,0,240,240,248,127,63,31 
950 OATA 15,15,15,15,31,254,252,248 

960 RÉM-6- 

970 DATA 1,3, 3, 7, 7, 15, 15,30 
980 DATA 224,192,192,128,128,0,0,0 
990 DATA 30.60,63,127,127,248,240,240 
1000 DATA 0,0,248,252,254,31,15,15 
1010 DATA 240,240,240,240,248,127,63,31 
1020 DATA 15,15,15,15,31,254,252,248 

1030 RÉM-7- 

1040 DATA 255,255,255,255,0,0,0,0 

1050 DATA 255,255,255,255,30,30,60,60 

1060 DATA 0,0, 0,0, 1, 1,3,3 

1070 DATA 120,120,240,240,224,224,192,192 

1080 DATA 7,7,15,15,30,30,60,60 

1090 DATA 128,128,0,0,0,0,0,0 

1100 RÉM-8- 

1110 DATA 31,63,127,248,240,240,240,240 
1120 DATA 248,252,254,31,15,15,15,15 
1130 DATA 120,63,31.63,120,240,240,240 
1140 DATA 30,252,248,252,30,15,15,15 
1150 DATA 240,240,240,240,240,127,63,31 
1160 DATA 15,15,15,15,31,254,252,248 
1170 RÉM-9--- 


O 

O 

O 

O 

O 


c 


G 


O U80 DATA 31,63,127,248,240,240,240,240 
1190 DATA 248,252,254,31,15,15,15,15 
1200 DATA 240,240,248,127,63,31,0,0 
O 1210 DATA 15,15,31,254,254,252,60,120 
1220 DATA 0,0,0, 1, 1,3,3,7 
1230 DATA 120,240,240,224,224,192,192,128 

U 1240 RÉM-JÁTÉK- 

1250 V=4:Y=0:TI$="000000“:SOUND 1,780,2 

1260 DRAW 1,185,17 TO 182,14 TO 188,14 TO 185, 17:S0UND 2,670,1 
1270 X=0 

1280 FÓR 1=1 TO 100 
,1290 GET A$ 

1300 DRAW 1,30+X,100 TO 30+X,120 
1310 IF A$=“M“ THEN GOSUB 1390 
1320 IF A$=“V" THEN GOTO 1380 
1330 FÓR Q=1 TO 10:NEXT Q:SOUND 1,920,1 
O 1340 DRAW 0,30+X,100 TO 30+X,120 
1350 X=X+2 
1360 NEXT I 
C 1370 GOTO 1270 

1380 SOUND 1,670, 4: PR INT 11 :GRAPHIC 0:END 
1385 RÉM CCLR1 

1390 RÉM-ELLENŐRZÉS- 

1400 ON SÍV) GOTO 1410,1420,1430,1440,1450,1460,1470,1480,1490 
O 1410 IF X=6 THEN GOTO 1520:ELS£ GOTO 1500 
1420 IF X=30 THEN GOTO 1S20:ELSE GOTO 1500 

1430 IF X=54 THEN GOTO 1520:ELSE GOTO 1500 

1440 IF X=78 THEN GOTO 1520.-ELSE GOTO 1500 

1450 IF X=102 THEN GOTO 1520:ELSE GOTO 1500 

1460 IF X=126 THEN GOTO 1520:ELSE GOTO 1500 

1470 IF X=150 THEN GOTO 1520:ELSE GOTO 1500 

1480 IF X=174 THEN GOTO 1520:ELSE GOTO 1500 

O 1490 IF X=198 THEN GOTO 1520 

1500 FÓR Q=1 TO 700:N£XT Q 
1510 RETURN 
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1520 BOX 1,172-Y.22,198-Y,78:PAINT 1,171-Y,21 

1530 DRAW 0,185-Y,17 TO 182-Y,14 TO 188-Y,14 TO 185-Y,17:Y=Y+40:V=V-1:SOUND 2,450,1 
1540 IF V=0 THEN GOTO 1570 

1550 DRAW 1,185-Y,17 TO 182-Y,14 TO 188-Y,14 TO 185-Y,17:SOUND 1,900,2 
1560 RETURN 

1570 RÉM-IDŐ- 

1580 RR$=TI $ 

1590 Rl$="IDŐ":R2$=MID$<RR$,3,2):R3$=MID$(RR$,5,2) 

1600 CHAR 1, 1,22,R1$:CHAR 1,4,22,” = ":CHAR 1,5, 22, R2$:CHAR 1,7,22,“:“ 

1610 CHAR 1,8, 22, R3$ 

1620 CHAR 1,1,23,"UJ JÁTÉK (I/N) ?":SOUND 2,780,2 
1630 GETKEY J$:SOUND 2,670,3 
1640 IF J$=“I" THEN GOTO 290 
1650 IF J$="N“ THEN GOTO 1380 
1660 IF J$<>”I“ OR J$<>“N“ THEN GOTO 1630 
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A JÁTÉKKAL REFLEX ÉRZÉKÜNKÉT TEHETJÜK 
PROBARA . 


A SZAMOK FELETT ELHALADÓ VONALAKRA 
KELL REAGÁLNI. 

A GÉP ÁLTÁL GENERÁLT NÉGYJEGYŰ SZAMOT 
KELL ELTALÁLNI, A SZAMOK FELETT ELHA¬ 
LADÓ VONALAK SÉGITSEGEVEL . 

HA IDŐBEN JELEZTÜNK. IDŐBEN ÁLLÍTOTTUK 
MEG A VONALAT A MEGFELELŐ SZÁM FELETT, 
AKKOR A GÉP ÁLTÁL GENERÁLT SZÁM UTOLSÓ 
SZÁMJEGYE ELTŰNIK. A NÉGY SZÁM ELTALA- 
LASA ESETEN A GÉP AZ ELTELT IDŐT 
KÖZLI. 

AZ ÖTLET:R T L MUHOLDASTEVE, GYERMEK 
PROGRAMJA ALAPJAN. 
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Tippek—Trükkök 

nyomtatókhoz 

Hibák az 1571-ben 

Ebben a mágneslemezegységben olykor jellegzetes hiba ke¬ 
letkezik: olyan lemezeken, amelyek több mint 50%-ban már 
megteltek, nehézségek adódnak mind a tárolásnál, mind a betöl¬ 
tésnél. Ennek az oka pontosan abban a kis különbségben kere¬ 
sendő, ami az 1571-et pl. az 1570-től megkülönbözteti. Ez pedig 
a dupla író/olvasótéj. A két fej ugyanis egy kis acélrugóval van 
egymással összekötve. Ez arra szolgál, hogy a két fej lehetőleg 
jól érintkezzen a lemez felületével. Ez a kis rugó a gyenge pontja 
az 1571-nek, könnyen eltörik, és azután a felső fej nem érintkezik 
többé a lemez felületével. Mivel a felső lemezoldalra csak akkor 
történik felírás, amikor az alsó megtelt, a félig tele lemez hibajel¬ 
zést ad. Van segítség ez ellen? 

A legjobb a hibát elkerülni. A kis rugó főként akkor van 
igénybe véve, amikor a lemezegység kapuját lemez behelyezés 
nélkül lezárják, mert akkor a tej egyoldalú terhelést kap. Emiatt 
a fej ferdén áll és a rugó megcsavarodik. Ezért a kaput csak akkor 
zárjuk le, ha a lemezt már betettük (vagy szállításkor a védőkar¬ 
tont behelyeztük). 


Centronics-kábel 

Egyike a leggyakrabban szükséges hardver eszközöknek. A 
nyomtatónak a C64 vagy C128 számítógép párhuzamos csatoló¬ 
jával (Cenlrovics-nak is nevezik) való összekötéséhez szükséges 
kábel. Ilyen kábelt nagyon egyszerűen lehet készíteni, csupán 
néhány alkatrész szükséges hozzá: 

1 User-Port dugaszoló 

2 Centronics dugaszoló 

1—2 m 11 eres kábel 

Az alábbi érintkezőket kell egymással összekötni: 


User-Port 

Centrovics 

A 

16 

B 

11 

C 

2 

D 

3 

E 

4 

F 

5 

H 

6 

.1 

7 

K 

8 

L 

9 

M 
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Hobbi ELEKTRONIKA 



Hang digitalizáló 


A sorozat korábbi számaiban számos 
C64 bővítést ismertettünk. Ebben a feje¬ 
zetben a címnek megfelelően beszélni 
tanítjuk meg a gépet. 

Ez a terület egy kicsit misztifikált ol¬ 
dala a számítástechnikának, abban az ér¬ 
telemben, hogy a hiedelem szerint bonyo¬ 
lult és drága áramkörök szükségesek hoz¬ 
zá. A Kedves Olvasó ha végigolvassa ezt 
a cikket rájön, hogy ez korántsem igaz, 
mert egyszerű eszközök segítségével is jó 
eredményt érhetünk el. Természetesen az 
egyszerű eljárásoknak megvannak a kor¬ 
látái, ami az alkalmazhatóságnak is határt 
szab. Ennek ellenére mindig érdemes egy 
problémát az egyszerű oldaláról megkö¬ 
zelíteni, mert a továbblépés lehetősége a 
kis lépések taktikájának értelmében 
mindig világosabb, biztonságosabb. 

A beszéd, a hang feldolgozásának két 
változatával foglalkozunk. Az elsőnél a 
hangforrásból származó jelet (beszéd, 
zene stb.) digitalizáljuk, eltároljuk, majd 
visszahallgatjuk. A második esetben vala¬ 
milyen hangforrás jelét a gép érzékeli és 
ennek hatására valamilyen feladatot elvé¬ 
gez (pl. zajérzékeléssel működő betö¬ 
résjelző). 

A két változat egymástól teljesen kü¬ 
lönböző megoldást kíván, hogy mégis 
egyszerre tárgyaljuk, technológiai oka 
van. Mindkét áramkör a joystick csatlako¬ 
zón keresztül kapcsolódik a géphez. A di¬ 
gitalizáló a 2. porton, a hangkapcsoló pe¬ 
dig az 1-es porton keresztül egy-egy 
9-pólusú Canon csatlakozó segítségével. 
Ehhez úgy rögzítjük a panelt, hogy azt 
élével a csatlakozó két lábsora közé be¬ 
dugjuk és a fóliaoldalon hozzáforraszt¬ 
juk, így a géphez illesztve a csatlakozó 
tartja a panelt. Mivel az áramkört a gép 
védelme érdekében célszerű bedobozol¬ 
ni, doboznak pedig legolcsóbb egy mű¬ 
anyag cartridge dobozt használni, a panel 
mérete adott. Erre a méretre mindkét 
áramkör kényelmesen rálervezhető, így a 
két csatlakozó már stabilan tartja a kár¬ 
tyát. Ezáltal két legyet ütöttünk egy csa¬ 
pásra. Spóroltunk egy dobozt és egy nyá- 
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bővítések 


— a beszélő C64 


kot, valamint stabilan megoldottuk a kár¬ 
tya rögzítését. 

A digitalizáló működése 


Az áramkör rajza az 1. ábrán látható. 
A felépítése, működése egyszerű, köny- 
nyen érthető. Fontos tulajdonsága, hogy 
nem igényel külön tápot, azt a joystick 
portról kapja, így +5 V-ról üzemel. A 
TTL áramköröknél ez természetes, az 
LM324 pedig még hajlandó működni 
ezen a feszültségen. 

A bemenet kis- és nagyszintű jeleket 
fogad. A kisszintű jel az A r re kerül, ami 
amellett, hogy erősít, beállítja az A 2 —A„ 
komparátorok munkapontját a P, segítsé¬ 
gével . A komparátorok referencia szintjét 
R 5 —R s állítja be. A komparátorok kime¬ 
netének szintje a bemenő jel függvényé¬ 
ben így alakul: 


A 2 Aj A., 

1 1 1 

1 1 0 

1 0 0 

0 0 0 


TTL kimenet 
0 0 

0 I 
I 0 
I I 


Az N,—NI , invertálja a komparátorok 
jelét, N„—N, pedig bináris kóddá alakít¬ 
ja. Innen kerül a jel az R 9 , R 10 -en keresz¬ 
tül a 2. vezérlőportra. 


Az áramkör szerelése, élesztése 


A panelt ha a 2. ábra alapján készíti 
el, 01 mm-es fúróval fúrja ki, reszelje 
méretre, majd erős fénnyel átvilágítva 
vizsgálja meg, hogy nincs-e rajta zárlat 
vagy szakadás. Forrassza be az egyetlen 
átkötő vezetéket, amit az ültetési rajzon 
folytonos vonal jelöl. Ezután tetszőleges 
sorrendben forrassza be a többi alkatrészt 
teljesen a panelra fektetve, hogy a doboz¬ 
ban kényelmesen elférjenek. Utoljára for¬ 
rassza fel a két Canon csatlakozót. A he¬ 
lyes pozicionálás érdekében ezeket dugja 
rá a kikapcsolt (!) gépre, helyezze a panelt 
élével a két lábsor közé. Forrasszon be 
egy-két lábat mindkét csatlakozónál, 
hogy ezután ne tudjon elmozdulni. Vegye 


le a gépről az egészet és forrasszon be 
gondosan minden lábat. Az R„ Rio szá¬ 
mára csak egy-egy forrszem van a pane¬ 
len, a másik lábukat közvetlenül a csatla¬ 
kozóra kell kötni. A számozás a csatlako¬ 
zó házon olvasható. 

Az élesztés egyszerűen elvégezhető a 
számítógép nélkül is. Kapcsoljon egy la¬ 
poselemet a táppontokra. Mérje meg az 
áram fel vételt, ez kb. 50 mA. Adjon jelet 
mikrofonról vagy magnóról a megfelelő 
szintű bemenetre, szkóppal vagy TTL ce¬ 
ruzával ellenőrizze az N 6 , N 7 kimeneteit, 
itt látszólag véletlenszerűen változó kitöl¬ 
tési tényezőjű négyszögjelet érzékelünk. 
Műszerek hiányában a gondosan szerelt, 
ellenőrzött panelt csatlakoztassa a kikap¬ 
csolt (!) gépre, bekapcsolás után olvassa 
be a működtető szoftvert lemezről vagy 
kazettáról. (A szoftvert a szerző által 
összeállított egységcsomag tartalmazza. 
Cím a 2. oldalon levő hirdetésben megta-' 
lálható.) 

A szoftver ismertetőjének elolvasása 
után készítsen felvételt valamilyen jelfor¬ 
rásból. Pi segítségével állítsa be a legjobb 
hangminőséget. A gondosan szerelt 
áramkörnél is előfordulhat az a hiba, hogy 
a gépre csatlakoztatva úgy tűnik, megbé¬ 
nítja a billentyűzet működését. Ennek az 
az oka, hogy alacsony az R 9 , R,„ értéke, 
és ezek úgy viselkednek a porton, mint a 
zárlatos joystick. Ilyen esetben meg kell 
növelni ezek értékét. A rajzon feltüntetett 
1,8 kfi elfogadható értéknek bizonyult. 

Beszélő BASIC 

A SPEECH (beszélő) BASIC olyan 
program, amely alkalmassá teszi a C64-ct 
beszéd, zene vagy más analóg jel digitali¬ 
zálásra. 

A program ciklikusan lekérdezi az 
A/D 2 bitjét és négyes csoportokban báj¬ 
tokba szervezve eltárolja az értékeket a 
memóriában. Ott egy monitorszerű prog¬ 
rammal változtathatunk rajta, szerkeszt¬ 
hetjük, majd visszajátszhatjuk. Lehető¬ 
ség van effektek alkalmazására és a leját¬ 
szási sebesség szabályozására. A digitali¬ 
zálás eredményeként kapott adathalmaz 
lemezre menthető és onnan visszatöllhe- 
tő. A program tág lehetőséget biztosít a ki- 
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ICi = A,- A, 


LM 324 


1C 2 = N,-N 4 = 7404 
IC 3 = N 5 -N 7 = 7400 


Beállítás, behallgatás mód 

A digitalizált érték közvetlenül a 
SID-bc kerül, nem tárolódik, így keres¬ 
hetjük meg magnó használata esetén a kí¬ 
vánt részt, próbálhatjuk ki az áramkört, és 
beállíthatjuk a trimmer-potenciométert. 
Működés közben a 2 biten érkező 4 érték¬ 
nek megfeleltetett színekkel csíkozza 
a program a képernyőt. Ezek a színek a 
COL DEF szín 1, 2, 3, 4 utasítással 
rendelhetők az értékekhez (ajánlott érté¬ 
kek a 0, 11, 12, 15). Ha most a HEAR 
:SPPEED1 parancsokkal belépünk a be¬ 
hallgatás üzemmódba, „láthatjuk” a han¬ 
gokat. A trimmerrel úgy kell a kompará- 
lási szintet beállítani, hogy a 4 szín egyen¬ 
letes eloszlású legyen. Kilépés a SPACE 
gomb megnyomására történik. 

Felvétel 

Három új utasítást kell megismer¬ 
nünk, hogy felvételt készíthessünk. A HÍ¬ 
MEM $ cím a BASIC RAM végét állítja 
be (alapértéke $A0Ü0). Ha maximális fel¬ 
vétel hosszt szeretnénk beállítani, akkor a 
HÍMEM $2000 parancsot adjuk ki. A 


/. ábra 


sérletezésrc. Ennek megkönnyítése érde¬ 
kében ismertetem a használható utasításo¬ 
kat, néhány alkalmazási példát, valamint 
a jellemző adatokat. 

A program kb. 4 Kbyte hosszú 

($0801 =2049-től $17EI = 6113-ig), 
mivel használni tudja a ROM-k alatti 
RAM területeket, így 57,5 Kbyte területen 
helyezhet el digitalizált adatokat. A min¬ 
tavételi sebességtől függően 15—45 má¬ 
sodpercnyi anyagot tud letárolni a memó¬ 
riában. Beszéd esetén, megelégedve a te¬ 
lefon minőséggel, 3 kHz-es felső határ- 
frekvenciát figyelembe véve, 6 kHz-es 
mintavételi frekvencia adódik. A zenénél 
9 kHz-es vágást számolva, a mintavétel 
18 kHz fesz. 

A lejátszó rutin egyszerűen a SÍD 
hangerő regiszterébe ($D418) shifteli a 2 
bites értékeket. így alakul ki a hang, amit 
elég fémessé tesz az, hogy formája négy¬ 
szögjel. A kísérletező kedvű amatőr eset¬ 
leg azzal is megpróbálkozhat, hogy saját 
lejátszó rutint ír, amelyik a jeleket az 
USER PORT-raadjaki. Itt ellenálláslétrá¬ 
val történhet a D/A átalakítás, majd a ki¬ 
alakultjelet a SID-be visszavezetve a bel¬ 
ső szűrőkkel lehet hűebbé tenni a hangot. 
Ha már úgyis új lejátszó rutint haszná¬ 
lunk, érdemes valamilyen tömörítő algo¬ 
ritmuson is elgondolkozni. 



2. ábra 
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memória felosztása a MÉM paranccsal 
kérhető le. A RECORD parancs jelenti a 
felvételt. Paraméter megadása nélkül a di¬ 
gitalizálás a teljes memórioába történik. 
A folyamat SPACE megnyomására indul 
és RESTORE-ral szakítható meg, vagy a 
memória betelése után automatikusan le¬ 
áll. Megadható azonban egy terület is a 
RECORD ERŐM $ kezdőcím TO $ vég¬ 
cím SPEED X paranccsal, ahol X a min¬ 
tavételi sebesség (a kezdő és a végeimnek 
HIMEM-nél nagyobbnak kell lennie). 

Lejátszás 

A PLAY parancs a tárolt adatok leját¬ 
szására szolgál. Szintaxisa megegyezik a 
RECORD-dal, azaz itt is lehet a lejátszan¬ 
dó területet és a sebességet szabályozni. A 
RESTORE gomb megnyomása azt a me¬ 
mória címet adja meg, ahol éppen a leját¬ 
szás tartott. Ezeket a címeket használhat¬ 
juk ún. blokkok kijelölésére a BLOCK X 
FROM kezdőcím TO végcím megjegyzés 
felépítésű parancsban, ahol X = 1—31 és 
a megjegyzés 8 karakter hosszú lehet. 

Az utolsó két blokk külöleges célra 
van lefoglalva. A 30-as funkció billen¬ 
tyűkhöz rendelt parancsokat tartalmazza 
(lásd később), míga 31 a blokkhoz rendelt 
memória területek összekapcsolását mu¬ 
tatja a blokk számokkal. Mielőtt a blokk 
műveletekre rátérnék még két megjegy¬ 
zést tennék. Az első, hogy lejátszásnál le¬ 
hetőség van a digitalizált értékek és a 
hangerő egymáshoz rendelésére. Erre a 
VOLDEF hangerő 1, 2, 3,4 parancs szol¬ 
gál. A szokásos értékeke 0, 5, 10, 15, azaz 
egyenletes hozzárendelés. A másik köz¬ 
bevetésem a sebességre vonatkozik. Fel¬ 
vételnél ez 1—40-ig terjedhet, lejátszásnál 
0—40-ig és ebben az esetben fordított a 
hozzárendelés. 


3. ábra 


Blokkműveletek 

A blokktáblát törölhetjük a FÓR X = 
1 TO 29:BLOCK X " " :NEXT X utasítás 
sorral. Ha van definiált blokkunk, esetleg 
több is, a blokktáblát a MAP X—Y utasí¬ 
tással nézhetjük meg, ahol az X-től Y szá¬ 
mú blokkig lesz kiírva. A BLOCK utasí¬ 
tás megfelel a MAP 0—31-nek, azaz a tel¬ 
jes táblát listázza. A blokkok minden 
olyan helyen használhatók, ahol a FROM 
... TO ... utasítást alkalmazzák. 

Effektek 

Egy blokk ismétlésére használhatjuk 
a RAP parancsot. Visszhangot az 1 pél¬ 
daprogram segítségével állíthatunk elő. 

File-mú'veletek 

Az adatok lemezre mentése a BSA- 
VE, visszatöltése a BLOAD utasítással 
történik, a következő formában: BSAVE 
v. BLOAD „név”, egységszám. FROM 
kezdőcím TO végeim. Természetesen a te¬ 
rület kijelölése itt is történhet blokk hoz¬ 
zárendeléssel. 

Egyéb leniezmííveletek 

A DIR parancs a tartalomjegyzék 
képernyőn történő megjelenítésére szol¬ 
gál. DISK parancs string utasítással pedig 
egy DOS parancs adható ki a floppynak. 
A file-ok a CLOSE utasításon kívül a 
RUN STOP és RESTORE billentyűk 
együttes megnyomásával is lezárhatóak. 


Egyéb parancsok 

Minden olyan helyen, ahol címet 
adunk meg, nemcsak decimális szám ad¬ 
ható be, hanem a $ jel alkalmazásával he¬ 
xadecimális és % jel után bináris is. Ha 
THEN utasítást alkalmazunk, az utána 
lévő utasítás előtt is kell a kettőspont, mint 
elválasztójel. 

A HELP parancs kiadásával elérhet¬ 
jük, hogy a program a képernyőre listázza 
a SPEECH BASIC utasításait. A HELP* 
ugyanezt teszi az alap BASIC szavakkal. 

Az EXEC kulcsszó arra szolgál, 
hogy mögötte egy stringben több utasítást 
adhatunk meg rövidítve, összevonva. Ez 
az adatok miatt leszűkített BASIC terület¬ 
re gondolva előnyös. 

A KEY (n string) key def. parancs az 
n-ik funkcióbillentyűhöz rendeli a string¬ 
ben megadott parancssort. A KEY pa¬ 
rancs a hozzárendeléseket listázza ki. 

A PAUSE A utasítás A/60 másodper¬ 
cig várakozik. A hexadecimális és a deci¬ 
mális szmok átszámítását a HEX, ill. 
DEZ parancsok segítik. 

A képernyő ki/bc kapcsolását végzi a 
SCREEN X utasítás, ahol X=0 a kikap¬ 
csolás és X a bekapcsolás. 

A RÉSÉT paranccsal alaphelyzetbe 
hozható a SPEECH BASIC, míga BASIC 
utasítás hatására visszatérhetünk az alap 
BASIC-be. 

A MON (block) — parancssor begé¬ 
pelésével egy speciális monitor program¬ 
ba jutunk, amely sgítségével megnézhet¬ 
jük az adatokat a memóriában és módosít¬ 
hatjuk is azokat (a módosítást RETURN- 
ncl zárhatjuk le). A blokk helyett a FROM 
... TO szerkezet is használható. 

Példaprogramok: 

1. Visszhang: 

PLAY BLOCK X SPEED Y 
FÓR I = 5 TO 0 STEP - 5 
VOL DEF 0, 1, 2*1, 3*1 
PLAY BLOCK X SPEED Y 
NEXT I 

2. Az EXEC használata: 

PLAY BLOCK 1 SPEED 1 

PLAY BLOCK 2 : PLAY BLOCK 2 

PLAY BLOCK 3 

helyett: EXEC"S1P1P2P3" 

3. Terület-kijelölések: 

... FROM $A()00 
... TO $D000 

... FROM $A()()() TO $D000 
... BLOCK 1 

A digitalizálót működés közben meg¬ 
tekintheti, egységcsomag vagy készre 
szerelt formában megvásárolhatja a szer¬ 
ző üzletében. Címa2. oldalon levő hirde¬ 
tésben megtalálható. 


o 
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káosz bűvölete 


A komplex számsíkon kialakuló struktúrák a számítógép 
feltalálása óta szorgos kutatások témáját. Megfelelő háttérisme¬ 
retekkel a C64-gyel is be lehet hatolni ebbe a titokzatos, ugyan¬ 
akkor rendkívül bonyolult struktúrájú világba. 

* 

Azzal a feltételezéssel ellentétben, hogy a minket körülvevő 
világ jelenségei matematikai képletekkel és egyenletekkel leír¬ 
hatók, kimutatható, hogy sok dolog mögött a káosz uralkodik. 
Az „almaemberke”, illetve a Mandelbrot-halmaz ennek egyike, 
és más dinamikus rendszerekhez hasonlóan azzal tűnik ki, hogy 
rekurzióval leírható és ábrázolható. A fraktálok képernyőn való 
megjelenítéséhez ezért úgynevezett iterációs egyenletekre van 
szükségünk, amiknek nem-lineárisaknak kell lenniök. A leg¬ 
egyszerűbb iterációs egyenletet egykor Benőit B. Mandelbrot, 
az IBM New York-i kutatóközpontjának tudományos munkatár¬ 
sa javasolta. Ez a következő: 

z n+l = z n - C 

Ezek szerint úgy kapjuk meg az iteráció következő tagját, 
hogy az előző tagot négyzetre emeljük, és ezután kivonunk belő¬ 
le egy komplex számot. Mivel általában a komplex számok és 
azok műveletei a számítógépekben nincsenek implementálva, a 
komplex szám valós (reális) és képzetes (imaginárius) részét kü¬ 
lön kell kiszámítani. Mivel nem mindenki ismeri a komplex szá¬ 
mokkal való műveletek mikéntjét, a legfontosabb alapismerete¬ 
ket összefoglaljuk. 

A komplex számot a legegyszerűbben két szám összegeként 
állíthatjuk elő a következőképpen: 

x + i*y 

Itt az első számot a komplex szám valós részének, a má¬ 
sodikat pedig a képzetes részének, az ,,i”t pedig képzetes (ima¬ 
ginárius) egységnek nevezzük. (A komplex algebra szerint 
i = Vj—Tj. A komplex számokat egyértelműen hozzárendelhet¬ 
jük a Gauss-féle számsík egy pontjához. 

Ha például az 5 + i.4 számot ábrázoljuk a számsíkon, a 
Descartes-koordinátarendszer kezdőpontjától kiindulva az x- 
tengelyen öt egységet, az y-tengelyen négy egységet lépünk. 


Képzetes és valós számok 

A komplex számok összeadása és kivonása egyszerű szabá¬ 
lyok szerint történik. Külön-külön adjuk össze, illetve vonjuk ki 
az összeadandók valós és képzetes részét, így: 

(4 + i.5) + (12 — i.7) = (16 - i.2) 

A számsíkon ez két vektor összeadásának felel meg. A szor¬ 
zás azonban már kissé bonyolultabb. Például a 

(3 + i.6) • (2 - i) 

számok kiszorzása után eredményül kapjuk: 

6 — i.3 + í. 12 - 6*i 2 . 

Mivel azonban a definíció szerint i 2 = —1, az eredmény 
összevonása után (12 + i.9). Ezúttal szemmelláthatóan a vektor 
bizonyos szöggel való elforgatásáról és hosszának megváltozásá¬ 
ról van szó. Akkor, ha komplex számokat össze akarunk hasonlí¬ 
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tani, felmerül a kérdés, hogyan határozható meg azok abszolút 
értéke. Célszerűnek látszik kiszámítani a koordinátarendszer 
kezdőpontja és a komplex szám által a számsíkon meghatározott 
pont közötti távolságot. A Pilagórasz-tétel szerint azonban a de¬ 
rékszögű háromszögben a befogókra emelt négyzetek területé¬ 
nek az összege egyenlő az átfogóra emelt négyzet területével. Te¬ 
hát ki kell számítani a valós és a képzetes részek négyzeteinek 
az összegét, majd ebből gyököt kell vonni. Azon komplex szá¬ 
mok abszolút értéke egyenlő, amelyek a számsíkon a középpont 
köré rajzolható azonos sugarú körön helyezkednek el. 


Iterációs egyenlet 


Ezzel rendelkezésünkre áll az iterációs egyenletünkhöz 
szükséges alapvető számítási mód. A 

c = c re + i*c im és z = x + i-y 
egyenletekkel az elsőnek felírt egyenletünket így írhatjuk: 

z n+l = x n+l + Í‘Vn+1 = x n ~ y« “ c re + i *(2*X„*y n - C im ) 
Ebben négy egymástól független paraméter van, nevezetesen x, 
y, c rc és Cj m 

Ezekből kettőt meghatározunk a képernyőn a pont (pixel) 
helyének a koordinátáival, azaz minden képponthoz egy-egy 
komplex számot rendelünk hozzá, ami a c re és c jm összetevők 
kezdőértéke. A másik két paramétert esetünkben nullára állítjuk 
azaz z = 0. Ez fordítva is megy: egy tetszőleges ,,c” komplex 
számot az iteráció során állandónak (konstansnak) veszünk, és 
„z” összetevői lesznek egyenlők a képernyő-koordinátákkal. íly 
módon újból komplex alakzat képződik, amit Julia-halmaznak 
nevezünk. 

Ha tehát programot akarunk írni, a képernyőhöz a komplex 
számsík egy területét kell hozzárendelnünk. Ehhez négy változó 
szükséges, amiket nevezzünk így: x min , x max , y min , y max . A 
képernyőnk felbontásán túlmenően szükségünk van még a két 
képernyőpont (pixel) közötti távolságra x és y irányban. A C64 
inicializáló rutinja tehát a következő lesz: 

x f = 320; 
y f = 200, 

ahol az ,,t” index a felbontásra utal. 

A valós és képzetes tengely terjedjen ki pl. —2-től 2-ig, 
tehát 


x tnin X max 

ymin ~ y max 


= + 2 ; 
= + 2 ; 


Két szomszédos pont egymástól való távolsága: 


x t ( X max x min^ x f 

y. — (y max ymin^yp 

ahol a ,,t” index a távolságra utal. 

Ezzel az iterációs egyenlettel keressük most mindazon pon¬ 
tokat, amelyek a Mandelbrot-halmazokon belül esnek. Ezúttal 
komplex számokról van szó, amelyek tetszőleges számú iteráció 
után is még végesek maradnak, más esetben a végtelenbe diver¬ 
gálnak. Úgy is mondják, hogy a Mandelbrot-halmazok „két 
attraktorból” állnak. Ézért minden képpont (a C64 képernyőjén 
64000 van!) végig kell fusson a következő algoritmus: 
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— Határozd meg az (x, y) képernyőpont komplex számát 
a következőképpen: 

c re < - x min + x ' x ó 

c ím < - y m in + yy t - 

— Tégy a z 0 -ba 0-t és az iterációszámlálót állítsd 0-ra: 

I = 0. 

— Számítsd ki, hogy 

z n+l z n — c 

x 2 = x*x; 

y 2 = y*y; 

y = 2 * x -y - c cí..ó 

x = X* _ y* - C n . 

A kiértékelés sorrendjére nagyon kell ügyelni, mert az utób¬ 
bi két sor felcserélése esetén x értéke elvész. 

— Az interációszámláló lépjen egyet: 1 = 1 + 1. 

— Távolság < — z értéke. 

— Távolság = x 2 + y 2 , amíg a távolság < 100-nál és az iterá¬ 
ciószámláló <150-nél. 

— Világítsd ki az (x, y) képpontot a (számláló)-nak megfe¬ 
lelő színnel. 

Itt most abból a tulajdonságból húzunk hasznot, hogy a 
100-nál nagyobb komplex számok a végtelenbe divergálnak. Az 
algoritmus befejezéséhez egy fix pont esetében szükségünk van 
a kiugrási feltételre, amit az interációszámlálóval valósítunk 
meg. A procedúra elhagyása után minden képponthoz olyan 
színt rendelünk hozzá, ami a számláló értékének felel meg. Mi¬ 
vel többnyire nem áll rendelkezésre elegendő szín, beosztjuk a 
színeket periodikusan egy mezőbe. Például három szín esetén 
a választék legyen a következő: 

1. szín = piros; 

2. szín = sárga; 

3. szín = kék; 

4. szín = piros; 

5. szín = sárga... és így tovább. 

Véges attraktor esetén a képernyőpont feketére színező- 
dik. 

Mivel az ilyen képek előállítása nagyon sok számítási időt 


vesz igénybe, ajánlatos a programot gépi kódba realizálni. En¬ 
nek ellenére még így is sok türelemre lesz szükség, mert 24 óra 
vagy még ennél több is eltelik a meghatározott elképzelés megva¬ 
lósításáig. Minél nagyobbra választjuk a távolság-változóra és az 
iterációszámlálóra a kilépési feltételt, annál pontosabb fesz az 
„almaemberke” struktúrája. 

Komplex struktúrák 

Az algoritmus segítségével abba a helyzetbe kerülünk, hogy 
a Mandelbrot-halmazokat kutassuk. Hozzuk létre például a fent 
megadott értékekkel az első képet, tároljuk lemezre, majd vá¬ 
lasszunk újabb területet. Különösen a halmazok halárán olyan 
komplex figurák keletkeznek, amelyek az eredetiekhez képest 
bizonyos önmagukhoz való hasonlóságot mutatnak. Az almaem¬ 
berke újra cs újra nagyításokon esik át, de pontosabb vizsgálat¬ 
nál újabb és újabb részletek derülnek ki. Ennek következtében 
két különböző, egyébként hasonló objektum sohasem lesz azo¬ 
nos. Egy további meglepő tulajdonság azt mutatja, hogy az alma¬ 
emberke összefüggő, így tehát a Mandelbrot-halmazon belül 
nincsenek olyan pontok, amelyek a mi iterációs eljárásunkkal a 
végtelenbe igyekeznének. 

A legjobb, ha begépeljük a BASIC-listát, hogy vele a fraktál 
alakzatok kezelését illetően az első tapasztalatokat megsze¬ 
rezzük. 


Röviden és velősen 

A Mandelbrot-halmazok kiszámításához matematikai előis¬ 
meretek egyáltalán nem hátrányosak, sőt kifejezetten előnyösek. 
A képernyő a komplex számsíknak csupán egy darabkáját ábrá¬ 
zolja tulajdonképpen. Minden egyes képpont, akár ki van gyújt¬ 
va, akár nincs, egy-egy komplex számot képvisel. Annak valós 
része az x-tengelyen, képzetes része az y-tengclyen van. A C64 
felbontóképessége közismerten 320x200 képpont HiRes mód¬ 
ban, míg csupán 160 x200 pont Multieolor-HiRes módban. 
Összesen tehát 64000, illetve 32000 címezhető képpont van a 
képernyőn. Mindegyik képponthoz a rekurziós képlettel kons- 
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tansként komplex számot rendelünk hozzá. Az iterációs lépések 
bizonyos száma után a program felismeri, hogy a következő ta¬ 
gok a végtelenbe igyekeznek, és akkor a pontot az adott koordi¬ 
nátához hozzárendeli. Ha azonban a következő tagok még hatá¬ 
rozatlanok, egyszerűen feltesszük, hogy a pont a Mandelbrot- 
halmazokhoz tartozik. 

További információk 

Végül az érdeklődő olvasónak azokból az irodalmi hivatko¬ 
zásokból adunk válogatást, amelyek a tárgyalt témával bővebben 
foglalkoznak. Ezekben a fraktális képek létrehozásához szüksé¬ 
ges különböző (pl. a Newton-, a fügefa- és a többi) iterációs eljá¬ 
rások mellett tárgyalnak más ábrázolási módokat )gömbproje- 
eió, háromdimenziós tájképek és így tovább) és azok programo¬ 
zását is. 


IRODALOM 

1. The Beauthy of Fractals (A fraktálisok szépsége) 

PEITGEN, H. —0., RICHTER, P.; Springer Verlag. 

2. Die unendliche Reise (A végtelen utazás) 

PEITGEN, H. —0., RICHTER, P; Geo Nr. 7, 1985 július 

3. The Science of Fractal Images (A fraktál képek tudománya) 
PEITGEN, H.-O. SAUPE, D.; Springer Verlag. 

4. Dynamische Systeme und Fraktale. Computergrafische Experimente 
mit Pascal (Dinamikus rendszerek és fraktálisok. Kísérletek Pascalban) 
BECKER, K. H . DÖRFLER, M.; Vieweg Verlag 

5. Die Entdeckung des Chaos. Eine Reise íurch die Chaos-Theorie (A káosz 
felfedezése. Utazás a káoszelméletben) 

BRIGGS, J., PEAT, F. D.; Cári Hanser Verlag 

6. Spektrum dér Wissenschaft (A tudomány spektruma) 

DEWDNEY, A. K.; Computer Kurzweil 

7. Dér Flohmarkt dér unbegrenzten Möglichkeiten (A korlátlan lehetősé¬ 
gek bolhapiaca) 

PÖPPE, Ch., Spektrum dér Wissenschaft, 1991. 7-10. sz. 


Resetálló basic 


Néhány gépi kódú utasítás segítségével rcsctálóvá lehet tenni 
a C128-as BASIC programokat. Adjuk be ehhez a Protcet 128 
programot. Annak indítása után a BASIC programot még leállí¬ 
tani sem lehet resettel. A fi fikás számítógépesek persze arra a 
gondolatra is jöhetnek, hogy a C128-ason a 64-es módban váltsa¬ 
nak ki resetet. Ebből az üzemmódból azután a Savé Bas prog¬ 
rammal lehet a programot kimenteni. Ha egy ilyen módon ki¬ 
mentett programot a 128-as módban behívunk a DLOAD „név” 
utasítással, az editálás és a megtekintés problémák nélkül meg¬ 
történhet. Éppen ezért ajánlatos 64-es módot blokkolni. Ehhez 
a Block 64 bevitele szükséges. Ennek használatakor ez az üzem¬ 
mód nem lesz elérhető. A BASIC programunkat ezekkel a mód¬ 
szerekkel szinte teljesen levédtük. 


O 


O 
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O 
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E>ROTEGT — 128 

10 a=dec("1300"):read b$ 

20 b=dec(b$) 

30 poke a,b:a=a+l:read b$:if b$<>"*" then 20 
40 data a9,00,8d, 00 , f f, 20,84 , f f 
50 data 20,7a,41,20,12,41.a9,cl 
60 data 8d,04,0a,58,4c.a6,5a,* 

70 banklrpoke dec("fff8"),0:poke dec("fff9" ), 

ready. 
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S s-ve t> r í: 


G — 120 


o 


sys 57812 "basic",Ö 
poke 174,C:poke 175,160 
poke 193,1:poke 194,28 
sys 62597 


o 


ready. 
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10 a=dec("8000"):read b$ 

20 b=dec(b$) 

30 poke a,b: a = a-*-l: read b$:if b$<>” 
40 data 09,80,09,80,c3,c2.cd,38 
50 data 30,02,* 


ready. 


then 20 
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A VDC RAM egyszerű 
írása 

Eleddig a BASIC programnyelv lassú volt a VDC RAM fö- 
lülírásához vagy kiolvasásához. Egy egyszerű trükkel azonban 
ennek ellenére lehetséges a VDC RAM-ra hivatkozni a BASIC 
7.0-ból. Ehhez fölhasználjuk a C128-as néhány operációs rend¬ 
szer rutinját. A VDC-Write programmal könnyen felülírhatunk 
egy tetszőleges helyet, a VDC-Read segítségével pedig onnan ol¬ 
vasni is tudunk. Ezeknél a programoknál a 10. sorban az INPUT 
pranccsal kérdezzük le a kívánt címet. A VDC-Write esetében 
még a beírandó értékre is szükség van. A kiolvasásnál az adott 
értéket kijelezzük. 
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Még többet ésszel! 


XIV. rész 

Foglalkozzunk tehát először a magnóval, vagy ahogy még 
hívják, a Datasette-tel! Ha a spéci csatlakozót nem nézzük, ak¬ 
kor ez egy majdnem közönséges magnó, amelynek a motorját 
a számítógép tudja elindítani és megállítani. A magnószalagra 
a tél vevőfej úgy rögzíti az adatokat (persze most leegyszerűsítem 
a dolgot), hogy minden l-es bit helyére egy magas, minden 0-s 
helyére egy alacsony hangú jelet ír. A felvett anyag közönséges 
magnón is visszahallgatható. Mivel a jelek nagyon sűrűn sora¬ 
koznak a szalagon, ezért nem egy fütyörészést, hanem egy bor¬ 
zasztó, recsegő zajt hallunk. 

Magnót háttértárnak ma már csak azok használnak, akiknek 
nincs pénzük egy lemezegységre, amely összehasonlíthatatlanul 
jobb eszköz. A magnó legfontosabb hátrányai a következők: 

1. A magnószalag elég sérülékeny. Ha valahol megnyúlik 
vagy meggyűrődik, ott a felvett jel eltorzul. Ha ez a torzulás 
meghalad bizonyos mértéket, akkor az adatok beolvasása hiba¬ 
üzenettel félbeszakad. 

2. Lassú. Ez azért van, mert a jelek a lemezhez viszonyítva 
nagyobb távolságra vannak egymástól, megnövelve a jelek mére¬ 
tét. így csökkenthető a szalag mechanikus sérüléseinek káros ha¬ 
tása. Persze használhatunk turbóprogramot (ld. később), de ez 
csak programfilc-okra működik, és növeli az. olvasási hiba koc¬ 
kázatát. 

3. A szalagra csak soros típusú állományok írhatók. Minden 
állományt minden megnyitáskora legelején kell elkezdenünk ol¬ 
vasni. Minden byte csak úgy érhető el, hogy az összes megelőző 
byte-ot is kiolvassuk. Javítani csak úgy lehet, ha beolvassuk és 
módosítva visszaírjuk a teljes állományt. 

4. A ftle-ok helyéi a kezelőnek kell megkeresnie és beállíta¬ 
nia. Ez egyrészt kényelmetlen, hiszen ha egy állományt vala¬ 
miért újra el kell olvasni, akkor a kazettát vissza kell rá állítani. 
Másrészt nem biztonságos, mert nem nagyon lehet ellenőrizni, 
hogy jó helyre van-c a kazetta állítva, és igen könnyű így véletle¬ 
nül felülírni egy másik állományt. 

Szalagon kétfajta állomány rögzíthető: program és adatállo¬ 
mány. Mindkettő soros típusú, de eltérő célra használjuk őket. 
Programftle a SAVÉ ffn[,dn[,saj]] paranccsal (esetleg utasítás¬ 
sal) hozható létre. Az ,, ín” a filenév rövidítése, és egy karakteres 
kifejezés lehet, akár 0 byte hosszú is. Az eszközszámot (dn) el¬ 
hagyva a gép az l-es egységet, azaz a magnót tekinti célnak. A 
másodlagos cím (sa) 0 és 255 között bármi lehet, de csak három 
érték van dokumentálva. A ,,0” és ,,1” értékek mentéskor a ta¬ 
pasztalatom szerint egyenértékűek, és közönséges mentést jelen¬ 
tenek. Az ,,sa” helyére ,,2”t írva a gép a mentés befejezése után 
egy „Szalag Vége” jelet (angol rövidítéssel HOT) is a szalagra 
ír. Ez egy kb. 15 másodperc hosszú különleges fejléc-blokk, 
amely elolvasásakor a gép a „Device nőt present” hibaüzenettel 
áll le. Ilyenre azért lehet szükség, hogy ha a szalagon a betöltés¬ 
kor megadott nevű programot a gép valamiért nem találja meg, 
akkor ne olvassa végig hiába az egész szalagot. Természetesen 
ha a kazettát az EOT jelzés utánra állítjuk, akkor onnan zavarta¬ 
lanul olvashatunk a kazetta végéig vagy a következő EOT jelig. 

Nemcsak BASIC program menthető ki. A gépben a BASIC 
által használt tár különböző szakaszainak címét megtalálhatjuk 
néhány byte-ban. A TXTTAB nevű bytepár <$2B/2C) mutat a 


BASIC program elejére, alsó/felső byte sorrendben, a változók 
területének kezdőcíme a VARTAB nevű mutatóban ($2D/2E) ta¬ 
lálható, értéke rendesen nagyobb az előzőnél. A SAVÉ utasítás 
mindig e két mutató közötti területet menti ki, a VARTAB által 
jelzett byte-ot már nem beleértve. Tehát a mutatók átállításával 
kimenthetünk gépi kódú programot, karakterkészletet, grafikus 
hátteret, bármit. A kimentett szakasz kezdőcímét a gép szintén 
a szalagra írja. 

Program betöltésére a LOAD [fn[,dn[sa]]| parancs szolgál. 
A másodlagos címnek itt más jelentése van. Haértéke ,,0” (vagy 
nem írtuk ki), akkor a programot a TXTTAB mutató pillanatnyi 
értékétől kezdve tölti a tárba, majd megkísérli a BASIC prog¬ 
ramsorok jellegzetes, egy későbbi részben bemutatandó láncolá¬ 
sát helyreállítani. Ennek előnye, hogy egy BASIC program nem¬ 
csak azon a társzakaszon futtathat, ahol megíráskor elhelyezke¬ 
dett. A mutatók ügyes állítgatásával egyszerre akár több BASIC 
program is a tárban tartható. Az újraláncolás hátránya, hogy ha 
nem BASIC programot töltünk be így, akkor azon a gép káros 
változtatásokat végez. Ilyen programfile-ok betöltésekor az 
,,sa”nak nullától különböző értéket kell adni, ettől a gép a prog¬ 
ramot változtatás nélkül tölti arra a címre, ahonnan ki lett ment¬ 
ve, függetlenül a TXTTAB értékétől. 

Szakállas téma, de nem biztos, hogy mindenki által ismert 
a LOAD működése utasításként, tehát program-módban. A leg¬ 
fontosabb, hogy a betöltés után elölről indul a TXTTAB-nál kez¬ 
dődő BASIC program, de a korábban felvett változók értékei 
nem törlődnek. Ha a betöltött program BASIC nyelvű, akkor az 
indul el, ha valami más helyre való kiegészítő fiié (és ,,sa” > 0 
paraméterrel töltjük be), akkor a régi indul újra. Ez utóbbi eset¬ 
ben végtelen ciklus lenne a mutatvány eredménye, ha nem gon¬ 
doskodnánk arról, hogy a töltés befejeztével a LOAD után folyta¬ 
tódjon a futás. Ehhez kihasználható, hogy a változók nem törlőd¬ 
nek. Mutatok három egyszerű példát, amelyekben nem foglal¬ 
koztam azzal, hogy mi a teendő, ha a betölteni kívánt file-t a gép 
nem találja, vagy olvasásakor hibát tapasztal. Az ilyen finomsá¬ 
gokat nem biztos, hogy magnóval rendesen meg tudnám oldani, 
mert nagyon kevés róla a tapasztalatom, másrészt most nem is 
lenne jő ilyenbe bonyolódni. 

Az első példa akkor használható, ha a programot azzal aka¬ 
rom kezdeni, hogy betöltők egy kiegészítő file-t, és aztán a fő- 
program fut. A hibátlan működés feltétele, hogy a kulcsváltozó 
értéke az első indításkor „0” legyen, ami RUN-nal való indítás¬ 
sal egyszerűen teljesül. A sort esetleg megelőző utasítások a töl¬ 
tés után megismétlődnek. Ha ezek valamelyike törli a Z változót, 
akkor a program végtelen ciklusba esik. 

A 2. példa azt mutatja, hogyan lehet egy nem a program ele¬ 
jén levő LOAD-ot beilleszteni. Itt a 0. sor a program első sora 
kell legyen (a REM-cket nem számítva), és a LOAD nem lehet 
szubrutinban vagy FOR-ciklusban. 

A 3. példa az 1. változata, de több betöltendő file-lal. A 
módszerek persze kombinálhatok, fejleszthetők, mindig a pilla¬ 
natnyi feladathoz igazodva. 

Ha valaki több BASIC programból álló csomag rátöltéses 
(overlay) szervezésén töri a tejét, annak elmondom, hogy BASIC 
társzakaszokat jelző mutatók nem igazodnak az újonnan betöltött 
programhoz. Ha az új program hosszabb a réginél, akkor rálóg 
a változók egy részére is, amelyeket ezután kiolvasni már nem 
érdemes, átírni pedig nem szabad. Ha az új program a rövidebb, 
a fennmaradó terület csak a változók áthelyezésével szabadítható 
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fel. Kezdőknek azt javaslom, hogy az ilyen programok ne hasz¬ 
nálják egymás változó-értékeit. 

Korábban említettem az ún. turbókat. Ezek a rendszert bő¬ 
vítő programok egy csoportja. A turbó célja, hogy a szalagra a 
szokásosnál többször sűrűbben írja fel a kimentett program bit¬ 
jeit, ezáltal töredékére csökkentve a kimentéshez, de főleg a be¬ 
töltéshez szükséges időt. Mentéskor a turbót be kell tölteni, elin¬ 
dítani, ezáltal az beépül az operációs rendszerbe. Minden ezután 
kiadott SAVÉ parancs, vagy esetleg egy megkülönböztető jel ha¬ 
tására a mentés turbó sűrűséggel történik. Az ilyen formában tá¬ 
rolt programok egy közönséges LOAD utasítással nem tölthetők 
be, mert a gép nem tudja azonosítani a kapott,,hadaró” jeleket, 
csak egy turbó segítségével. Üzletekben kapható programkazet¬ 
tákon szokásos eljárás, hogy a programcsomag file-jainak egyi¬ 
ke egy turbó-betöltő, amelyet az indítóprogram automatikusan 
behív. Szerencse, hogy a sokféle turbó általában el tudja olvasni 
a többiek munkáját, ezért nem kell egy ismeretlen módon felvett 
játékprogram betöltéséhez egy hatalmas turbó-gyűjteményt vé¬ 
gigpróbálgatni. 

Ha egy programot kimentünk, nem lehetünk biztosak ab¬ 
ban, hogy a rögzítés biztonságosan sikerült. Ha megpróbáljuk 
visszatölteni a programot, és az valahol hibás, akkor elvesztettük 
a hibátlan eredetit is. Ilyenkor kell használni a VERIFY 
[fn[,dn[,sa]]| parancsot. Ez végigolvassa a tárolt file-t, és össze¬ 
hasonlítja a tárban levővel. Az ,,sa” paraméter jelentése meg¬ 
egyezik a LOAD-nál leírtakkal. Ha a gép a két program között 
eltérést talál, a „Veril'y error” hibaüzenetet kapjuk, de sajnos se¬ 
hogy nem állapítható meg az eltérés helye. 

Eddig csak a programfile-okról beszéltem, pedig a magnó 
adtok tárolására is alkalmas. Mivel ilyen célra a magnót ritkán 
szokás használni, és a módszer lényegében egyezik a SEQ típusú 
lemezes állományok kezelésével, ezért ezzel most nem foglalko¬ 
zom. Csupán megemlítem a magnó néhány sajátosságát. 


o 

(1.1 



o 

O 1 

IF Z=0 THEN Z=1: LOAD 

"FI LE ", 1, 1 

o 

O 0 

(2. ) 


(3. ) 


IF Z THEN 19 

1 

Z=Z+1: ON Z 

GOTO 2, 3, 4 



2 

LOAD "FILE1' 

,1.1 

18 
O 19 

2=1 : LOAD "FI LE“, 1, 1 

3 

4 

LOAD "FILE2 1 

•Cl o 

o 




O 


Az OPEN-ben az ,,sa” paraméternek három dokumentált 
jelentése van. ,,0”: megnyitás olvasásra. ,,1”; megnyitás írásra. 
,,2”: megnyitás írásra, lezárás után EOT jelzés felírása. Az 
OPEN utasítás,,parin” tagja (ki. előző rész) egy karakteres kife¬ 
jezés, amely a fiié nevét tartalmazza, hossza 0—16 byte, értéke 
bármi lehet. Globális filenevek, amelyek a lemezen megszokot¬ 
tak, itt nem használhatók. 

Az állomány írásra való megnyitásakor először a nevet, 
egyéb jellemzőket tartalmazó fejléc kerül a szalagra, aztán sor¬ 
ban az adatok. A gép a magnóra nem közvetlenül ír, hanem az 
adatokat összegyűjti az ún. szalagpufferban, amelynek címe 
C64-en $033C. Ha ez a puffer megtelik, akkor azt a blokkot egy¬ 
ben a szalagra menti. Hasonlóan történik az olvasás is. Ennek 
következtében a magnó használatakor a szalagpuffcrt más célra 
(pl. gépi kódú programok elhelyezése) nem helyes használni, 
írásra nyitott állomány lezárásakor a szalagra kerül egy „Állo¬ 
mány Vége” (EOF) jelzés, és ha kell egy EOT jelzés is. 

Most már végre komoly dolgok jöhetnek, a következő né¬ 
hány rész a lemezegységről fog szólni. 

Hódi Gyula 
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Ötn nezős kono 


A meghirdetett pályázatra készítettem ezt a programot. 
Ez ajátÉk a mellékelt lemezen van, ÖTMEZŐS KONO néven. 
Kettenjátszhatják; célja, hogy a bábukat az ellenfél bábuinak 
helyére vigyük. De bővebben a programban olvashatunk er¬ 
ről. Betöltése: LOAD"*",8-cal és RUN-nal indítható. 

A program elején szubrutinok találhatók (a bábuk he¬ 
lyeinek képernyő-memória címei, a tábla rajza, a kiírások). 
Az 500-as sortól kezdődik a főprogram. 

A változók nevei és jelentésük: 

JN$ játékos neve 
J következő játékos 


PÁLYÁZAT 


M1$ annak a bábunak a betűjele, mellyel lépni akarunk 
L u.a., csak a száma, ami kiírásokhoz is kell 
M2$ ahová lépni akarunk (betű) 

K u.a. (száma) 

BSZ bábu színe 
LSZ lépések száma 

BA ahol állhatnak bábuk (képernyő-memóriacím) 

F ha áll ott bábu, akkor értéke egyenlő a játükos számá¬ 
val; ha nem áll bábu, értéke 0. 

A 200 sortól kezdődő alprogram vizsgálja, hogy a beírt 
lépés megvalósítható-e. Ha nem, hibaüzenetet ad; ha igen, 
a bábut Áthelyezi (az F értéke megfelelően módosul). 
Remélem megnyeri tetszésüket és díjat nyerek. 

Tisztelettel: 

Mucsi László 


o 

10 


15 

o 

17 


20 


25 

o 

30 


35 

o 

36 


37 


38 

0 

39 


40 

o 

41 


42 


43 

o 

44 


45 

o 

46 


47 


48 

o 

49 


50 

o 

51 


52 


53 

o 

57 


58 

0 

59 


60 


70 

ü 

72 


74 

o 

76 


78 


80 

o 

82 


84 

o 

86 


88 


O 


O 


o 
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C-64 *** 


JATEKSZABALY 


PRINT"jt]JATEK0SNAK 7 FEKETE, A MÁSIKNAK 7 FEHER" 
PRINT"j<jKOR0NGJA VAN. MINDIG AZ A JÁTÉKOS TESZI" 
PRINT"jíiMEG AZ ELSŐ LÉPÉST, AKI FEKETE KORONGGAL" 
PRINT"JÁTSZIK. EGY LEPESBEN MINDKÉT JÁTÉKOS" 
PRINT"83SAK EGY KORONGGAL LEPHET. FELVÁLTVA" 
PRINT'jSLEPNEK, ES ELŐRE, HATRA VAGY ATL0S” 
PRINT“;?]IRANYBAN HALADHATNAK A MEZOKON. " 

PRINT" mm" ;TABC16)• <fiSPACEJSÓ“ 

GETVS: IFVSO" "THEN44 


PRINT"INAK HELYERE. AKI EZT ELSŐKÉNT ERI EL A” 
PRINT"SJATEK0S0K K0ZUL, AZ A NYERTES." 

PRINT"ülüiLEPES: EL0SZ0R ANNAK A MEZŐNEK A BETŰJE-" 
PRINT'LET USD BE, AMELYIKEN AZ A BÁBU ALL," 


k. 


<íjSPACE5!> " 
>“ "THEN58 


JÁTÉKOS NEVET KEREMPRINT"(MAX. 10 KARAKTER)" 


!FJSZ=lTHENJN$(2)="C-64" 


INPUT"S“;V$:1FV$="FEKETE”THENBSZ(1)=1:BSZ(2)=2:RETURN 
IFV$= * FEHER"THENBSZ(1)=2:BSZ(2)=I:RETURN 


100 RÉM - TABLA FELRAJZOLÁSA 

102 POKE53280,.:P0KE53281,.:PRINT"3i" 


104 PRINT" 
106 PRINT" 
108 PRINT" 
110 PRINT" 
112 PRINT" 
114 PRINT" 
116 PRINT" 


PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

RETURN 


I 

-*■ 


! 


I 

I 


120 BA(1> = 1064:BA(2) = 1069:BA(3)=1074:8A<4 > = 1079:BA(5> = 1084:BA(6) = 1184 
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o 
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PÁLYÁZAT 


Cr 


o 

122 

124 

o 

126 

128 

0 

130 

131 

132 

o 

134 

135 

o 

140 

142 

144 

o 

146 

148 

o 

149 

150 

151 

o 

152 

154 

o 

156 

180 

200 

o 

205 

210 

o 

215 

220 

225 

o 

227 

228 

o 

229 

230 

231 

0 

232 

233 

o 

234 

235 
237 

o 

240 

245 

o 

250 

255 

260 

o 

265 

270 

o 

o 

260 

282 

285 

286 
288 

o 

290 

499 

o 

500 

505 

510 

o 

515 

520 

o 

525 

530 

535 

o o 

540 

550 

555 

560 

565 

o 

o 

570 

580 

587 

588 

589 


• :GOTO220 
ELLENFELEDE! ": 


GOTO220 


BA(7)=1189:8A(8)=1194:BA(9)=1199:BA(10)=1204:BA<11>=1304:BA(12)=1309 
BA(13)=1314:BA(14)=1319:BA(15)=1324:BA(16)=1424:8A(17)=1429:8A(18)=1434 
BAI19)=1439:BA(20)=1444:BAI21)=1544:BA(22)=1549:BA(23)=1554:BA(24)=1559 
BAI25>=1564:RETURN 

F0RV=1T06:F(V)=BSZ(1>:NEXT:F(10)=BSZ(1):F<16)=BSZ(2):FORV=20TO25:F(V)=BSZ(2) 

NEXT 

F0RV=1T06:POKEBA(V),215:P0KE54272+BA(V),BSZ< t)-1:NEXT: 

POKEBA(10 >,215:P0KE54272+BA(10),BSZ<1)-l:POKEBA(16), 215:P0KE54272+BAI16),BSZI2>-l 
FORV=20TO25:POKEBA(V),215:P0KE54272+BA(V),BSZ(2)-1:NEXT:RETURN 
RÉM — KIÍRÁS 

PR I NT “ Sf TAB (25)" Hffijl. JÁTÉKOS: “ SPC (29)"-" 

PRINTTABI25) ”2]“ JNSI 1) “ " ; :P0KE646, BSZ( 1 >-l :PRINT" Í|0«!" 

PR INTTABI25)" riÍ!9-EPESEK SZAMA; * SPC (72); LSZ (1) 

PRINTTAB124)“ ®]-" 

RETURN 
PR I NT" 

PRINTTAB(25) “S2. JÁTÉKOS:"SPC< 29)"-“ 

PR I NTTABI 25)” IS” JNSI2)“ " ; :P0KE646, BSZ(2)-1 : PR INT" JSOS" 

PRINTTABI25)"SielLEPESEK SZAMA : "SPC(72) ;LSZ(2) 

RETURN 

PRINTASI1);"ÍGY NEM LEHET ":PRINT"HLEPES:";:RETURN 

L=ASC(Ml$>-64 

IFF(L)=0THENPRINTA$(1);"OTT NINCS BÁBU! 

IFFIL)=-BSZ(J H3THENPRINTASI1);"A BÁBU AZ 
IFF(L)=BSZ(J)THEN225 
PRINT"SLEPES:“;:GOTO590 
K=ASC(M2$)-64 

IFL = 1 ANDKO2ANDKO6ANDKO7THEN290 
IFL=2ORL=3ORL=4THEN240 
IFL=5ANDK<>4ANDK<>9ANDK< >10THEN290 
IFL=60RL=11ORL=16THEN250 
IFL=10ORL=15ORL=20THEN260 
IFL=21 ANDK016ANDK0 17ANDKO22THEN290 
IFL=22ORL=23ORL=24THEN270 
IFL=25ANDK<>19ANDKO20ANDK< >24THEN290 
GOTO280 

IFL=10ORL = 150RL=20THEN260 
IFK=L-1ORK=L+1ORK=L+4ORK=L+5ORK=L+6THEN280 
GOTO290 

IFKOL-5ANDKOL-4ANDKOL + 1ANDKOL+5ANDKOL+6THEN290 
GOTO280 

IFKOL-6ANDKOL-5ANDKOL-1ANDKOL+4ANDKOL+5THEN290 
GOTO280 

IFKOL-6ANDKOL-5ANDKOL-4ANDKOL-1ANDKOL +1THEN290 
IFFIK) = lÜRF(K')='jTHENPRrNTAÍ( 1) “OTT MAR VAN BÁBU! “:GOTO220 

POKEBA!L), 81:POKEBAIL) + 54272,15:POKEBA!K),215:P0KE54272+BAIK),BSZIJ)-1 
FIK)=BSZ(J):LSZ(J)=LSZ(J)+1:F(L)=0 
IFJ=1THENGOSUBl40:J=-J+3:GOTO620 
GOSUB150:J=-J+3:GOTO620 

PRINTASI 1)“ ÍGY NEM LEPHETSZ! " : PR INT “'KILÉPÉS:" ; :GOT0590 

END 

POKE53280,.:P0KE53281,. 

PRINT”ZSIfilS] KERED A JATEKSZABALYT? I I/N)“ ; 

POKE204,0:GETV$:IFV$=““THEN510 
IFVS="I“THENPOKE204,1:GOSUB20:GOTO530 
IFV$=“N"THENPOKE204,1:GOTO530 
GOTO510 

POKE53280, . .-P0KE53281, . 

GOSUB60: GOSUB 100: GOSUB 120 : POKE53280, 4 : P0KE53281,4 
GOSUB140:GOSUB150 

PRI NT " SíeLíftlDAU||J||«JBtHUBÜtÜiCí*HaiiD|!(*iE “ : PRINT “ ÍMíííFígififcSGp^WjHWlMilIUWjJ" 

PR INT" &?]!JKUU!i!lLMftiMíJJ!»ÍN)iM»l!50" : PR I NT" a®FMiMIQ^®liR?K#!S!iBKí2T * 

PR I NT" SKIIJUSÍSlIVÍÍSi.ftlIWIiilMXIIMIY * 

ASI1) = “ 4í+WK[gMl Fl TH;i:In[PlH l>iWl!li!ll!M(!l‘' 

A$(2)="NE HÜLYÉSKEDJ! 

IFBSZ!1)=1ANDJSZ=2THENPRINTA$(1)JNSI1) 

IFBSZI1)=2ANDJSZ=2THENPRINTA$(1)JNSI2) 

GOSUB130 

RÉM *** KEZDŐLÉPÉS 


TE KEZDESSZ! “ : PR INT" jflLEPES :" ; :J=1 
TE KEZDESSZ!":PR INT"JjLEPES:";:J=2 


O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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PÁLYÁZAT 


Cf 


o 

o 

o 

o 

o 

o 

o 

o 

o 


590 INPUTCí 

595 M1$=MI0$(C$, 1, 1> :IFM1$<"A"0RM1S>"Y"THENPRINTAÍ.( 1 ); A$ (2 > ‘ íü" : PR INT" LÉPÉS: ” ; :GCITO590 
600 M2*=MID*(CÍ,2, 1 ): IFM2$< 11 A"0RM2í>“Y“THENPRINTA$< 1) ;A$(2)"JJ":GOTO590 
603 IFM2$<"A"0RM2$>“Y”THENPRINTA$(1);A$(2):PRINT"HLEPES:";:GOTO590 
IFM1$=M2$THENPRINTA$(1);A$(2):PRINT“KLEPES:";:GOTO590 
GOTO20O 

0=0:F0RV=1T07:1FF <V)=-BSZ(1)+3THEN0=0+l:NEXT 
IFF<10)=-BSZ(I)+3THEN0=0+l 

M=0:FORV=20TO25:1 FF(V)=-BSZ(2)+3THENH=M+1:NEXT 
IFF<I6)=-BSZ(2)+3THENM=M+1 
IFO=7ORM=7THEN700 


605 

610 

620 

625 

630 

635 

640 

655 

660 

700 

705 

710 

715 

720 

725 

730 

735 


PRINTA$(1);JN$(J) “ LEP" 
PRINT"a_EPES:";:G0T0590 
PRINTASU ;JN$(-J+3) 
GETVS:IFV$<>“ “THEN705 
POKE53280,.:P0KE53281,. 
PRINTTABí14)"GRATULÁLOK!" 

PRINT“ ÍJ" JN$(-J+3) : PR I NT" ifi TE 
PRINT“i|j"JN$(J)* ELLEN.” 
PRINT" i' Mt'lsiU J JÁTÉK? (I/N) I" 
RUN 


: F0RV= 1TO13-LEN ( JN$ ( J)) : PR I NT" 


:NEXT:PRINT" 


NYERT!“:F0RV=1T017-LENí JN$(J)):PRINT" 


PRINT" KnW»l " 


:NEXT 


NYERTED MEG A JÁTÉKOT" 


: INPUT"illlii" ;V$: IFV$<>" 1"THENEND 


O 

O 

O 

O 

O 

O 

O 

O 

o 


Fogócska 


Egy éve vagyok az OCE tagja és kb. másfél éve foglalko¬ 
zom a C64 programozásával. A pályázatra készített program¬ 
jaimat sajnos csak kazettán tudom beküldeni, mert floppy 
nem áll rendelkezésemre. 

A „FOGÓCSKA” című programhoz több szerencse 
vagy reflex kell, mint logika. Ha a keret közelében tartózko¬ 
dunk és a dobókockán nagyobb szám van, mint amennyit 
a keretig léphetnénk, ajátékos a helyén marad és a lépés joga 
az ellenfélre száll. A további játékszabályokat a program is¬ 
merteti. A vázlatos felépítése a következő: 


10—390 Bevezetőkép és játékszabály kiíratása. 
400—470 Választás. 

480—760 F’álya kirajzolása. 

780—920 Az első játékos lépése. 

930—1230 „Gyengébb” gép lépése. 

1240—1750 Erős gép lépése. 

1760—1810 Játékosra vonatkozó kiíratások (ki lép stb.). 
1820—1950 Hanghatások. 

1960—2030 Kiértékelés. 

2040—2090 Eredményhirdetés. 

Tisztelettel: 

Méhész Imre 


O 

O 

o 

o 

Q 

O 

Q 

O 

O 

O 


10 gosub 1820 :print :poke 53281,0 :poke53280, 0 

20 print "fll * * f-Q-g--o-c5-k-a * * 

30 x=55582:y=55582+27:z=27 
40 poke x,l:poke x-l,0:x=x+l 
50 if x=55582+z then x=55582: goto 70 
60 goto 40 
70 pokey,1 
80 y=y-l:z=z-l 

90 if z=0 then z=27:goto 120 
100 if y=55582 then y=55582 +25 
110 goto 40 

120 gosub 1820: print "S^Ejg* 

130 print keszitette : méhész imre" 

140 a=55823:b=55823+25:c=25 
150 poke a,1:pokea-l,0:a=a+l 
160 if a=55823+c then a=55823:goto 180 
170 goto 150 
180 poke b,1 
190 b=b-l:c=c-l 
2O0 if c=0 then c=25:goto 220 
210 goto 150 

220 poke 1283,39: poke 55554,1 



L 


o 


c 

L. 

c 

c 

c 

c 


o 


o 
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o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

c 

o 

o 

o 

o 

o 

o 

o 

o 
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o 

o 

o 

o 

o 
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230 poke 1513,39: poke 55785,1 

240 poke 1526,39: poke 55798,1 

250 poke 1528,39: poke 55800,1 

260 gosub 1820:for k=0tol@00:next:gosub 1870 

270 poke53280,0:poke53281,0 

280 orintchr$( 14) :print“ &raa»>>HBBIBftltil J ATEKSZABALY 
290 print“!5j3|i]Ketszemelyes tablajatek. A játék le-“ 

300 print"£|nyege: az ellenfel bábujának elfogása. 11 
310 print";gA lépésszámot a dobókocka ertekevel 1-4" 

320 print"Hhatarozzuk meg, az irányitogombok meg- 
330 print" «|nyomasaval. Aki a 10-et eleri, az nyert 

350 print' Fe 1 Fel" 

360 prlnt"a»MÍÍ» MH HZ LeU'SIJISMti-IÜ&W/' Le" 

370 print“aSMÜWÜ!liA BalraJfMil-®!: Balra" 

380 print"TMH HmnlH illieiüilS Jobbrafi'J.S!l-Í»Si; Jobbra" 

390 geta$:ifa$=“"then390 
400 printchr$(142) 

410 print "g" 

420 poke 53280, 0:poke 53281,0 :print"'5" 

430 print “WrTrBHiBil kivel akarsz játszani ?" 


• I TAS : 

2 JÁTÉKOS" 


waro MMU i 
5ÍTMSI2 - 
5EWMI3 - 

I —I—I 


- egymás ellen játszotok" 
gyenge gép ellen játszol” 
eroske gép ellen játszol" 
;t:ift<lort>3then410 


-1—t- 


I I 
4 —h 


I I 


I I 


I I 


I I 


+-+- 

I I 


I I 


t— i— t— r 


440 print 
450 print 
460 print 
470 input 
480 print 
490 print ” 

500 print * 

510 print " 

520 print " 

530 print * 

540 print " 

550 print " 

560 print " 

570 print " 

580 print " 

590 print " 

600 print " 

610 print " 

620 print “ 

630 print “ 

640 print " 

650 print " 

660 print " 

670 print " 

680 print " 

690 print " 

700 p=0:pp=0 

710 x=3:y=4:o<o)=81:o(1)=32 
720 a=y*40+x+1024-41:pokea,o(o> 

730 n=21:m=22:b(o)=160:b(1)=32 
740 v=m*40+n + 1024-41:pokev, b(o) 

750 a=y*40+x+1024-41 
760 pokea,o(o):if a=v then 1920 
780 a$="labda":gosub 1740:get t$ 
790 if t$=“s" then x=x+r: goto 840 

800 if t$="a" then x=x-r: goto 840 

810 if t$="q" then y=y-r: goto 840 

820 if t$="z" then y=y+r: goto 840 

830 goto 780 
840 gosub 1820 

850 if x<3 then x=x+r:goto 900 
860 if x>21 then x=x-r:goto 900 
870 if y<4 then y=y+r:goto 900 
880 if y>22 then y=y-r:goto 900 
890 poke a,o(1) 

900 a=y*40+xtl024-41 

910 pokea,o(o):if a=v then 1920 

920 on t goto 930,1080,1240 


O 

O 

O 

O 

O 

O 

O 

O 

O 

o 


J 


":gosub 1740:get t$ 
then n=n+r: goto 990 
then n=n-r: goto 990 
then m=m-r: goto 990 
then m=m+r: goto 990 


930 a$=“kocka 
940 if t$=“ 

950 if t$=":“ 

960 if t$=“@" 
v 970 if t$=V“ 

980 goto 930 
^ 990 gosub 1870 

1000 if n<3 then n=n+r:goto 1050 
1010 if n>21 then n=n-r:goto 1050 
l 1020 if m<4 then m=m+r:goto 1050 
1030 if m>22 then m=m-r:goto 1050 
v 1040 poke v,b(l) 

1050 v=m*40+n+1024-41 
1060 pokev,b(o):if v=a then 1980 
^ 1070 goto 780 

1080 a$=“kocka":gosub 1740 
1090 if x>n then n=n+r: goto 1150 
1100 if x<n then n=n-r: goto 1150 
1110 if x=n and y<m then m=m-r: goto 1150 
^ 1120 if x=n and y>m then m=m+r: 

1130 if y=m and x<n then n=n-r: 

^ 1140 if y=m and x>n then n=n+r: 

1150 gosub 1870 

1160 if n<3 then n=n+r:goto 1210 
^ 1170 if n>21 then n=n-r:goto 1210 

1180 if m<4 then m=m+r:goto 1210 
^ 1190 if m>22 then m=m-r:goto 1210 

1200 poke v,b(1) 

1210 v=m*40+n+1024-41 
^ 1220 pokev,b(o):if v=a then 1980 

1230 goto 780 

^ 1240 a$="kocka":gosub 1740 

1250 if x>n then k=x-n: goto 1410 
1260 if y<m then g=m-y: 

^ 1270 if x<n then l=n-x: 

1280 if y>m then f=y-m: 


goto 1150 J 
goto 1150 
goto 1150 j 


Lt 


goto 1450 
goto 1430 
goto 1470 


O 


O 


o 


o 


o 


o 


o 
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o 
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o 

o 

o 
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1290 if x=n and y<m then d=no-y:goto 1330 

1300 If x=n and y>m then c=y-m:goto 1350 

1310 if y=m and x<n then h=n-x: goto 1370 

1320 if y=m and x>n then i=x-n: goto 1390 

1330 if d<=8 then 1490 

1340 m=m-r:goto 1650 

1350 if c<=8 then 1510 

1360 m=m+r:goto 1650 

1370 if h<=8 then 1530 

1380 n=n-r:goto 1650 

1390 if i<=8 then 1550 

1400 n=n+r:goto 1650 

1410 if k<=8 then 1570 

1420 n=n+r:goto 1650 

1430 if 1<=8 then 1590 

1440 n=n-r:goto 1650 

1450 if g<=8 then 1610 

1460 m=m-r:goto 1650 

1470 if f<=8 then 1630 

1480 m=m+r:goto 1650 

1490 if r=d then 1340 

1500 goto 1240 

1510 if r=c then 1360 

1520 goto 1240 

1530 if r=h then 1380 

1540 goto 1240 

1550 if r=i then 1400 

1560 goto 1240 


o 

o 


o 

1570 

if r=k then 1420 



1580 

goto 1240 

o 

o 

1590 

if r=l then 1440 


1600 

goto 1240 

o 

o 

1610 

if r=g then 1460 

1620 

goto 1240 



1630 

if r=f then 1480 

o 

o 

1640 

goto 1240 


1650 

if n<3 then n=n+r:goto 1710 

o 

o 

1660 

if n>21 then n=n-r:goto 1710 

1670 

if m<4 then m=m+r:goto 1710 



1680 

if m>22 then m=m-r:goto 1710 

o 

o 

1690 

gosub 1870 



1700 

poke v,b(1) 

o 

o 

1710 

v=m*40+n+1024-41 

1720 

pokev, b(o):if v=a then 1980 



1730 

goto 780 


o 

o 

1740 

r=int(8*rnd(1)1+1 



o 


o 



1750 


1760 


1770 


1780 

o 

1790 


1800 

Q 

1810 


1820 


1830 

o 

1840 


1850 

o 

1860 


1870 


1880 

o 

1890 


1900 

o 

1910 


1920 


1930 

o 

1940 


1950 

o 

1960 

1970 


1980 

0 

1990 


2000 

o 

2010 


2020 


2030 

o 

2040 


2050 

o 

2060 


2070 


2080 

o 

2090 



if r=l or r=3 or r=5 or r=7 then1740 
pri nt *3^|iÍMi'J!ÍJ!»l!l«.iil!l!l'JMS!lM!ll«J!li|iJdobokocka * ; r/2 
pr i n t " yCT8i|itili8ilii|i»»i»ttti|ii«|i»|i8iiiÍ»PM te jössz ";a$ 
print "l!!JÍ'.|az alias " 
print "abda * ;p 
print " ock a ” ; pp 

return 

poke 54296,15:poke 54277,25:poke 54278,68:poke 54273,55:poke54Í72,65 
poke 54276,17 
fór hh=lto50:next 

poke54276,0:poke54277,0:poke54278,0 
return 

poke 54296,15:poke 54277,25:poke 54278,68:poke 54273, 55:poke54272,65 
poke 54276,129 
fór hh=lto50:next 

poke54276,0:poke54277,0:poke54278,0 

return 

fór q=lto5 

gosub 1820 

gosub 1870 

nextq 

pokea,o(1):p=p+l:if p=10 then 2060 
goto 710 
fór q=lto5 

gosub 1870:gosub 1870:gnsubl870 

gosub 1820 

nextq 

pokev,b(1):pp=pp+l:if pp=10 then 2040 
goto 710 

print “íSfREIlli'SIlliWSillla kocka gyozott" ;pp* : ” ;p 
goto 2070 

print 'aEE^JdUlfeftla labda gyozott'' ;p" : * ;pp 
inpuf'S'PliJlíJSiiakarsz meg jatszanid/n) :";i$ 
ifi$<>"i“ thenpr int "síi" : end 
goto420 
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o 

p 
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EGYESÜLET 


Cr 

Tisztelt Szerkesztőség! 

Ismét egy sokak által hasznosítható különlegességet küldök! 
Nemcsak azok figyelmébe ajánlom, akiket a CITIZEN120-D 
programozása érdekel ékezetes betűkkel, s azt a gyakorlatban is 
használni szeretnék! 

A program ötletét a 48000-es sortól kezdődő formázó rutin 
adta, amely A BASIC programozás magasiskolája C 64-esen 
című (Novotrade) kiadványban (116. o.) található. A könyvbeli 
rutin természetesen több helyen is hibás. Akinek van ilyen köny¬ 
ve megkeresheti! A rutin sorszámozását ezért nem változtattam 
meg. Ez a rutin természetesen a képernyőre írásnál is használha¬ 
tó, illetve nagyobb gépekre is átírható; megérdemli a figyelmet! 

Ennek a rutinnak egy különleges használatát mutatom be: 
a bevitt adatokkal egy táblázatot készítek (címmel, fejrésszel, 
befejezéssel). A szemléletesség érdekében a programlistában a 
vonalakat nem füzérekből állítottam össze. Cégjelzéssel, cím¬ 
változtatással, számmal, dátummal, aláírással akár okmány is 
készülhet! 

A programlistában szereplő értelmetlennek tűnő karakterek 
a képernyőn és a nyomtatón ékezetes betűk lesznek. 

A 49000-es sortól egy részleges és azonos karakterkészlet 
programozása található képernyőre (nb/gr) valamint 120-D-re! 
A printer programozása minden mód használatát és betűtípus ki¬ 
nyomtatását ügy biztosítja, mintha eredeti karaktereit használná! 
Azok tudják ezt igazán értékelni, akiket idegesít az EASY 


SCRIPT és egyéb program karakter készleteinek furcsa írása: 
a printer előbb felírja a szó ékezeteit majd alá a szót. Tudni kell 
azonban, hogy az EPSON eredeti karakterkészletének átprogra¬ 
mozható részét is csak korlátozva használhatjuk! Ezt a program¬ 
részt a saját készítésű karakterszerkesztővel készítettem. A kép¬ 
ernyőn a RVS karakterek eredetiek maradnak (nem véletlenül), 
ezt használom ki a tájékoztató kiírásánál! 

A táblázatot itt az INPUT segítségével bevitt adatok alapján 
szerkesztjük meg, de a bevitel helyett a READ/DATA megoldás 
is használható. Ekkor az alapadatokat DATA-kban adjuk meg, 
a számíthatókat kiszámítjuk, ezután hívjuk meg a formázó rutint 
adatonként, a sorokat külön kinyomtatva. Használhatjuk a rutint 
a SEQ és REL fiiék adatainak nyomtatásánál is! 

A formázó rutin működése elég bonyolult, nem is a leggyor¬ 
sabb, de tökéletesek a szolgáltatásai: 

a szöveget a megadott helyen bal oldalon kezdi; 

— a számok írását tizedesponthoz, illetve jobb oldara 
igazítja; 

— a felesleges részeket kitölti szóközzel; 

ha kell, a tizedespont után 0-kal egészíti ki a számot. 

A kinyomtatandó füzért PF$-ban gyűjti. A programban ez 
a füzér kiegészül még a táblázat grafikájával is. 

Természetesen a szöveg és szám helyét nekünk kell megadni 
FO$-ban. A 280-as és a 670-es jól szemlélteti mindezt: 

— AAAAAAA szerepel a szöveg; 

— 99999 az egész számok; 

— 999.999 a nem egészek helyén. 
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100 RÉM * MESSSÜFT:EKEZETES TABLAZATIRQ 
110 RÉM * FORMÁZOTT ADATKIÍRÁS (PÉLDA) 

120 RÉM * C64 & CITIZEN120-D 

125 RÉM * 'BASIC PROGRAMOZÁS MAGAS- 

130 RÉM * ISKOLÁJA C 64-ESEN’ 116.0. 

140 RÉM ************ ***********m* x*x*** 

150 : 

160 POKE53280, 6: P0KE53281,6 : PR I NTCHRí ( 142) "HKü] FELKE nn . fwiSZUriH"COrgHwT< • • • " 
170 : 

180 RÉM *** BEÁLLÍTÁS - VEZERLES *** 

190 : 

200 CLR:F0RI=.T018:WWÍ=WWÍ+" -‘-r" : NEXT : GOSUB49020 : RÉM BETŰK 

210 PR1NT”@® FEJLItCET NYOMTATOM...":GOSUB49520:GOSUB49650:RÉM CIMBETUK 

220 PR 1 NTttl, SPC ( 6 ) ” ttRTtf KK 1 MUTAT ! S” 

230 PRlNTttl.CHRí (27)"l";CHRí(27)"Ul"; :GOSUB49690 

240 PR I NT# 1, " i-1-1-.-,- 

250 PR I NT tt 1, " IFSZ. IMENNY. I CIKK MEGNEVEZItSE I EGYS.IR I ttRTttK I" 

260 P 0 í = " I-1-1-1-1-1" 

270 Plí = " I I I 1 I I” 

280 P0=.:F0Í="999 99999 AAAAAAAAAAAAAAAA 999999.99 9999999999.99" 

290 PR 1 NT tt 1, P0$ 

300 PR I NT#1,P0Í 
310 PR l NT tt 1 , P 1 $ 

320 P0=P0+1:PRINT"rTlESSSOFT: FORM!ZOTT ADATKI*R!S NYOMTATÍN" 

330 PR INT" ItRTKKKI MUTAT IS I" 

340 PR INT" -'" : PR I NT 

342 PR I NT"BET)K:g": :FÓR I=32T042:PR 1NTCHRí(I) ; :NEXTI :PRINT 

344 PR INTTAB(6); :FÓR I=32T042:PR INTCHRÍ(I ) ; :NEXT1 :PR INT:PR INT 

346 PR1NT, , "[TJBEVITEL SZ!MA:”P0 

348 PR 1 NT:PR INT:PR 1NTWWÍ 

350 P0KE214,20:PR1NT:PR1NTWWÍ 

355 IFMJíO”"THENPRlNTMJí ; AN* EP : MJ í = " " 

360 P0KE214,22:PRINT:PRINT" KIIRÉM AZ ADATOKAT CR] "; 

370 P0KE214, 10:PR 1 NT:PR 1NTTAB(18)"MAX.0"M1DÍ(FQÍ,5,4) 

380 INPUT" MENNY ISttG <DB/M> t 4 ] : " ; AN 
390 IFAN>9999THENPR1NT"H";:GOTO380 
400 PRINTTAB(18)"MAX. (jJ"M I D$(FOí, 11, 15) 

410 INPUT" MEGNEVEZITSE C 15]:"; ARÍ 
420 IFLEN(ARÍ)>15THENPRINT"n";:GOTO410 
430 PR INTTAB(18)"MAX.H"MID$(FOÍ , 29,8) 

440 INPUT" EGYSttG ! R <FT> [5,23:"; EP 
450 1FEP>99999.99THENPRINT"H";:GOTO440 
460 IFAN*EP<255*255*125THEN4V5 
470 P0=P0-1:MJÍ=" EZ NAGY VOLT :":GOTO320 
475 P0KE781,22:SYS59903 

480 P0KE214,22:PRINT:PRINT" JÍK AZ ADATOK <I/N> ? 

490 GETAí : I FAÍO” I ” ANDAÍ <> "N"THEN490 
500 IFAÍ = "N"THEN360 

510 P0KE214,22:PR I NT:PRINT" RENDBEN, FELDOLGOZOM. 

520 FIí=STRí(P0):GOSUB48020:FPí=FPí+CHRÍ(27)+CHRÍ(8)+”. I ” 

530 FI$ = STRÍ(AN):GOSUB48020:FPí =FPí + " I " 
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540 F I $ = AR$:GOSUB48020:FP$ = FP$ + "1 " 

550 F1$=STR$(EP):GOSUB48020:FP$=FP$+"I " 

560 FI $=STFí$(AN*EP) :GOSUB48020:FP$=FP$+" I" 

570 FP $ = " I " + FP $ 

580 PRI NT#1,FP$:PR INT#1,Pl $:FZ%=. 

590 OS=ŰS+AN*EP 

600 IF0S>255*255*125THENPQKE214,21:PRINT:PR 1 NT” NAGY EREDM#NY. .V#GE.. .”:GOTO640 
610 P0KE214,22:PRINT:PR1NT" M#G EGY BEVITEL<1/N> ? 

620 GETA$:I FASO" I"ANDA$<>"N"THEN620 
630 I FA$ = "I"THEN320 

640 P0KE214,22:PRINT:PRINT" XSSZES*TEK, BEFEJEZEM..."; 

650 PR 1 NT# 1 , " F— 1 - 1 -*— .. ■*-1" 

660 PR I NT# 1 , ” I-1” 

670 F0$=" AAAAAAAAAAAAAAAAAAAAAAA 999999999.99" 

680 F I $ = " X S S Z E S E N CFT]:":GOSUB48020 
690 F1$=STR$(0S):GOSUB48020 
700 PRINT#1," I";FP$;" I" 

710 PR I NT# 1 , " 1 -*" 

720 PRINTH1,CHR$(27):CL0SE1:END 

47998 RÉM ============================= 

47999 • 

48000 RÉM *** FORMAZO RUTIN *** 

48001 : 

48020 IFFZX=.THENFZX=1:FLX=LEN(F0$):FP$="" 

48040 FIX = LEN(FI $):FB$ = "":FCX = 1 

48050 IFM1D$(F0$,FZX,1)=" "THENFZX=FZX+1:FB$=FB$+" ":GOTO48050 
48060 FM$=MID$(FO$,FZ%,1) 

48080 FVX =.:FH%=.:FA%=.:FBX=.:FF%=. 

48100 IFMID$(F0$,FZX,1)="."THENFZ%=FZ%+1:FF%=2:GOTO48180 

48120 1FFZX>FLXTHENFAX=FAX+1:FZX=FZX+1:GOTO48240 

48140 1FM1D$(F0$,FZX,1)=” "THEN48240 

48160 FAX=FAX+1:FZX=FZX+1:GOTO48100 

48180 IFM1D$(F0$,FZX,1)=" "ORFZX>FLXTHEN48240 

48200 FB%=FB%+1:FZX=FZ%+1 

48220 GOTO48180 

48240 IFMID$ < F1 $,FCX, 1)=".”THENFCX=FCX+1:FFX=FFX+4 sGOTO48320 
48260 FVX=FVX+1:FCX=FC%+1 


48280 IFFCX>FIXTHEN48380 

48300 GOTO48240 

48320 IFFCX>F1%THEN48380 

48340 FHX=FHX+1:FCX=FCX+1 

48360 GOTO48320 

48380 IFFM$="A"THEN48780 

48400 L2=FA%-FV%:IFL2<.THENFF%=FF%+1:GOTO48720 
48420 1FL2=.THEN48460 

48440 F0RL1=1T0L2:FB$=FBÍ+" ”:NEXTL1 

48460 IFFV%=.THEN48520 

48480 L2=FV%:F0RL1=1T0L2 

48500 FB$=FB$+MID$(F1$,L1,1):NEXTL1 

48520 IFFF*=.THEN48920 

48540 FF%=. :FB$ =FB$ + ”.":L2 = FV% + 2 

48560 1FFB%=.THEN48920 

48580 1FFB%=FH%THENL3=FB%:GOTO48620 

48600 L3=-FH%*(FB%>FHX)-FB%*(FH%>FB%)-1 

48620 F0RL1=L2T0L2+L3 

48640 FB$=FBí+MIDí(FIí,Ll ( 1):NEXTL1 

48660 IFFH%>=FBXTHEN48910 

48680 L2=FB%-FH%:F0RL1=1T0L2 

48700 FB$-FB$ + "0":NEXTL1:GOTO48910 

48720 L2=FA%+FBX:IF(FFXAND2)THENFF%=1:L2=L2+1 

48740 F0RL1=1T0L2:FB$=FB$+"*":NEXTL1 

48760 G0T048910 

48780 IFCFF%AND4)THENFV%=FV%+FHX+1 
48800 L2=FV%:F0RL1=1T0L2 

48820 IFMID$(FI$,L1, 1)0" "THENL3 = L1 :L1=L2 
48840 NEXTL1 

48860 L2=-FVX*(FAX>FVX)-FAX* CFVX>FAX) 

48870 IFL2=.THENL2=FVX 

48880 F0RL1 = L3T0L3 + L2 

48900 FB$=FB$+M1D$(F1$,L1,1):NEXTL1 

48902 1FFVX>FAXTHEN48910 

48904 L3=FAX-L2:F0RL1=1T0L3 

48906 FB$ = FB$ + " ":NEXTL1 

48910 IFFZX>FLXTHENFZX=.:GOTO48960 

48920 L2=FZX:L3=FLX:F0RL1=L2T0L3 

48930 IFMID$(F0$,L1, 1)0” "THENFZX = L1 : L1 = L3 : GOTO48950 
48940 FB$ = FB$ + " " 

48950 NEXTL1 

48960 FPÍ=FP$+FB$:FFX=(FFXAND1) 

46970 RETURN 

48980 RÉM =========================== 

48990 : 

49000 RÉM * BETŰK KÉPERNYŐRE * 

49010 : 

49020 FORA=.TO48:READB:POKE12*4096 + A, B:NEXT 

49030 DATA162, 16, 169, , 141,14,220,169,51,133,1,169,208, 160, , 132,34, 133 

49040 DATA35 , 169, 112, 132, 36, 133, 37 . 177,34 , 145,36,200.208,249,230,35,230 

49050 DATA37,202,208,242,169,55,133,1,169,1,141,14,220,96 

49060 SYS49152 

49070 READA:IFA=-1THEN49090 

49080 F0RK=.T07:READB:P0KE28672+A*8+K,B:NEXTK:GOTO49070 

49090 P0KE53272, 189:P0KE56576, 150:POK£648, 108:PR 1NTCHRí(147)CHRÍ(8) 
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A kivitelhez helyükre kell képzelni a táblázat vonalait is, hi¬ 
szen a FO$-hoz ezeket hozzáadjuk PF$-ban. Másképpen nem 
oldhatjuk meg, mert a formázó rutin csak a leírt karaktereket en¬ 
gedi meg FO$-ban. Megfelelő sorrendben kell a rutint 
meghívni! 

240 : táblázat fejrészének nyomtatása; 

260—270: többször használatos füzérek meghatározása; 

280: folyószám =0, nyomtatási formátum az adatokhoz; 

290—310: fejrész alatti sorok nyomtatása; 

320: folyószámnövelés, képernyőinfo; 

342—344: ékezetes billentyűk és betűk kiírása a képernyőre; 
346: bevitelszám, vonalak, túl nagy érték kiírása; 

370—460: adatok bevitele; 

— tájékoztatás a formátumról: 

— javítás rossz adatok esetén; 

470: ha nagy volt a bevitt érték (db és egys. ár szorzata) 

új bevitel: biztosítva a két tizedesjegy kiírását; 
480—500: javítás biztosítása; 

510: tájékoztatás a 22. sorba; 

520—570: a füzér összeállítása adatokkal, vonalakkal; 

— CHR$(8) = visszalépés (backspace): 

580: füzér kinyomtatása és táblázatrajz; 

590: adatösszegzés (OS-ben); 

600: ha nagy az összeg, befejezésre; 

610: új adatsor bevitele vagy befejezés; 

640: tájékoztató; 

650—660: táblázatzárás rajza; 

670: zárásformátum; 


EGYESÜLET 

680—690: zárófüzér összeállítása; 

700: kinyomtatása; 

710: alsószél rajza; 

720: nyomtató teljes törlése (mód, ék. kar. stb.), zárás, 

vége; 

48020—48970: formázórutin (bonyolultsága miatt nem részle¬ 
tezem); 

49020—49060: karakterkészlet (nb/gr); (C=SHIFT) tiltás; 

64 karakterek ROM-ból RAM-ba 
49070—49190: RAM-ban karakterváltoztatás (képernyőn lát¬ 
hatók lesznek); 

49230—49250: nyomtatásellenőrzés; megnyitás, alapállapot; 
49260: printer ROM printer RAM-ba; 

49270—49300: karakterek átírása RAM-ban; 

49520: printer RAM használata (új karakterekkel); 

49530: printer ROM használata, ha eredeti karaktere¬ 

ket akarom használni, (képernyő marad!); 
49650: széles betűtípus választás; 

49660: kétszeres betűmagasság választás; 

49690: betűtípus választás a táblázathoz; 

49700: betűmagasság eredeti. 

A bevitt adatok után kicsit várni kell, amíg a füzér elkészül, 
mert csak akkor hívjuk meg a formázórutint, ha az adataink jók, 
akkor viszont többször. A munka gyorsabbnak tűnik, ha a bevitel 
után azonnal külön-külön hívjuk meg a formázórutint. Ehhez vi¬ 
szont a javítási technikát is módosítani kell. 

Tisztelettel: 
Mesterházi Sándor 
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49100 DATA42,12,8,60,24,24,24,60, 

49110 DATA41,54,36,102,102,102,102,60, 

49120 DATA40,102,,102,102,102,102,60, 

49130 DATA39,12,8,102,102,102,102,60, 

49140 DATA38,54,36,60,102,102,102,60, 

49150 DATA37,102,,60,102,102, 102,60, 

49160 DATA36,12,8,60.102,102,102,60, 

49170 DATA3S,12,8,126,96,124,96,126, 

49180 DATA33,12,8,24,60, 102, 126, 102, 

49190 DATA-1 
49200 : 

49210 RÉM * BETŰK PRINTERRE * 

49220 : 

49230 0PEN1,4,7:CL0SE1:IFST=0THEN49250 

49240 PR I NT" NYOMTAT$T NEM TÁL!LOM. rr:GOTO49230 

49250 CL0SE1:0PEN1,4:PR I NT#1,CHR$(27)"©"; 

49260 PRINTttl, CHR$<27) " : "CHR$ ( 0 ) CHR$ ( 0 ) CHR$ (0) ; 

49270 PRINTttl,CHR$<27)"&"CHR$(0)CHR*( 33)CHR$( 33); 
49280 FÓR I=1T012:READX:PR I NT#1,CHR*(X) ; :NEXTI 
49290 PR1NT#1,CHR$(27)"&”CHR$(0)CHR$( 35)CHR$( 42); 
49300 FORI = 1T096:READX:PR INT#1,CHRí(X); :NEXTI :RETURN 
49310 DATA128,14,16,36,,100 
49320 DATA128,36,16,14,,:RÉM!=A, 

49330 DATA128,62,,42,,106 
49340 DATA128.42,,34,,:REM#=E, 

49350 DATA128,28,34,,34,64 
49360 DATA162,,34,28,,:REM$=0, 

49370 DATA128,28,34,128,34, 

49380 DATA34.128,34,28,,:REM%=0.. 

49390 DATA128,28,34,64,162, 

49400 DATA34,64,162,28,,:REM&=0,, 

49410 DATA128,60,2,,2,64 
49420 DATA130,,2,60,,:REM’=U, 

49430 DATA128,60,2,128,2, 

49440 DATA2,128,2,60,,:REM(=U.. 
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49450 DATA128,60,2,64,130, 

49460 DATA2,64,130,60,,:REM)=U,, 

49470 DATA128,,,,34, 

49480 DATA126,128,34,,,:REM*=I, 

49500 : 

49510 RÉM * KARAKTERKÉSZLET VÁLASZTÁS * 

49520 PR1NT#1,CHR$(27)”%1”CHR$(0);:RETURN:RÉM 120D 
49530 PR1NT#1,CHR$(27) n X0 n CHR$(0);:RETURN:RÉM 120D 
49630 : 

49640 RÉM » CÍMFELIRAT * 

49650 PR I NT#1,CHR$(27)"!"CHR$(48);:RÉM TIP 
49660 PR1NT#1,CHRÍ(27>CHR$(126)"11";:RÉM MAGAS BE 
49670 RETURN 

49680 RÉM * VISSZA NORM * 

49690 PR I NT#1,CHR$(27)"!"CHR$(17);:RÉM TIP 
49700 PR]NT#1,CHR$(27)CHR$(126)"10”;:RÉM MAGAS KI 
49710 RETURN 
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ROVAT 

FRIEND TWO CREW 



Az Amiga Üzembehelyezése, 
és tartozékai 


Mit tegyünk, ha niég soha sem láttunk 
Amigát, vagy nem reg vásároltunk egyet? A 
gép csomagjában három fő részt találunk. A 
központi egységet az alapgépet, az igen nehéz¬ 
re sikeredett tápegységet, valamint a mechani¬ 
kus egeret. A lemezmeghajtó egységet a drive- 
ot az alkotók a 64-es géppel ellentétben bele¬ 
építették az alaplapba. A dobozban találunk 
még két, vagy több 3,5-ös mágneslemezt, vala¬ 
mint az Amiga-Basic és a DOS kézikönyvet. 
Helyezzük el a berendezést, és figyeljük meg 
a hátoldalon elhelyezkedő ki- és bemeneteket. 
Jobbról balra haladva a következőket találjuk. 
Az első pólus az egérbemenet, amely joystick 
(botkormány) bemenetéként is használható. 
Csomagoljuk ki az egeret és máris csatlakoz¬ 
tassuk. A következő bemenet a központi bot¬ 
kormány csatlakoztatására való. A joystick- 
okat külön kell megvásárolnunk. Kezdő Ami¬ 
gásoknak lapkapcsolós, és mikrokapcsolós 
botkormányokat ajánlunk. Az Amiga ugyanazt 
a joy.-t használja, mint a Commodore 64-es. 
Ezután az RCA kimenet következik. Innen köt¬ 
hetjük hi-fi berendezésünkhöz, rádiómag¬ 
nónkhoz számítógépünket. Érdemes erre a 
célra egy négy RCA, öt dines sztereó csatlako¬ 
zót vásárolni. A kimenetről monitort is csatla¬ 
koztathatunk, természetesen audió formájá¬ 
ban. A következő ki- és bemenet 23 pólusú, és 
ide illeszthetjük a lemezmeghajtó (külső) adat- 
átviteli kábeijét. Mellette az ún. serial port ta¬ 
lálható, ez adatközlési célokat szolgál (például 
nyomtatók esetében (.A következő a parallel 
port/párhuzamos kimenet), ide lehet kötni a 
legtöbb nyomtatót. A következő négyzet alakú 
bemenethez a tápegységet illeszthetjük. Cso¬ 
magoljuk ki, és mielőtt a hálózathoz kötnénk, 
helyezzük be a csatlakozót az Amiga említett 
bemenetébe. Az utolsó előtti csatlakoztatási 
pont a monitorkimenet. Ha nincs monitorunk, 
és televízióhoz akarjuk csatlakoztatni az Ami¬ 


gát ún. modulátorra van szükségünk. Szak¬ 
boltban vásárolható meg. A televíziót a követ¬ 
kezőképpen köthetjük a frekvenciaátalakító 
modulátorhoz. Az RF kábelt, antennakábelt, 
az out jelzésnél először a modulátorba, a má¬ 
sik végét pedig a televízió antennabemenetébe 
helyezzük. A modulátorhoz egy kisebb, egyik 
oldalán egy-, a másikon kétpólusú végződéssel 
ellátott csatlakozó is tartozik. Ha a számítógép 
hangját is a televízión keresztül akarjuk hall¬ 
gatni. akkor a kétpólusú részt az előbb említett 
hi-fi kimenethez kell csatlakoztatnunk, az egy¬ 
pólusú részt pedig az átalakító audió in beme¬ 
netéhez. A legutolsó mono feliratú kimenetre 
is lehet tv-t kötni. Ebben az esetben fekete- 
fehérben élvezhetjük az Amigát. A különböző 
portok megismerése után csatlakoztassuk a 
tápegységet a 220 V-os hálózathoz. Ha ez meg¬ 
történt. a számítógépet a tápon található kap¬ 
csoló átállításával tudjuk üzembe helyezni. A 
televízió (monitor) képernyőjén megjelenik 
egy lemezt tartó kéz. Fontos még megjegyez¬ 
nünk, hogy az Amiga a játék-, felhasználói, 
demó programokat automatikusan tölti (DOS- 
os, trackload-os). A dobozban a kicsomagolás 
során találtunk két lemezt. Az egyikre rá van 
írva Workbench (vörkbencs). Ez a lemez tar¬ 
talmazza az Amiga operációs rendszerének 
tartozékait. A lemezen található file-okról, a 
workbench menüjéről, az ikonokról, a könyv¬ 
tárakról írásunkban nem foglalkozunk. A 
workbench-ről bővebben az 1990-ben kiadott 
Nagy Amigakönyv foglalkozik. Megvásárol¬ 
ható minden szakboltban. Mivel már gépünk 
üzemképes, célszerű olyan cégekhez fordul¬ 
nunk, melyek játékprogramokat, demókat for¬ 
galmaznak. 

Hardverkiegészítők 

A memóriabővítők az alapgép kapacitását 
növelik. A legegyszerűbb bővítő a Commodo- 


Kedves Olvasónk! 

A Commodore cég 1985-ben 
kifejlesztett Amiga néven 
forgalomba hozott 
számítógépeivel foglalkozunk. 
Azokat a számítógépbarátokat 
szeretnénk megnyerni, 
akik a havi lapban megjelenő' 
programlisták felhasználása 
mellett érdeklődnek gépük más 
lehetőségei iránt is. A grafikai 
és zenei képességen túl 
demókkal, felhasználói 
programokkal, valamint játékok 
leírásával foglalkozunk. 
Lehetőségeinkhez mérten 
a programok leírása mellé 
grafikai, képi illusztrációk 
sokaságával szeretnénk 
rovatunkat bővíteni. 
Beszámolunk a nemzetközi 
software-piacon megjelent 
újdonságokról, és azok hivatalos 
árairól. A szerkesztését 
a BUMBLE BEE nevű csapat 
fogja elvégezni. Ha kedvet érez 
az említett témakörön belül 
programleírással, cikkekkel 
rovatunkban szerepelni, 
a következőket tegye. A leírt 
(gépelt, nyomtatott) szöveget, 
valamint egy darab bélyeggel 
ellátott válaszborítékot, címének 
és nevének pontos feltüntetésével 
a következő levélcímre küldheti: 
FRIEND TWO CREW 1399 Bp. 
Pf.: 701/55. A leírásokat nem 
tudjuk anyagiakhoz kötni, 
az elismerés csak erkölcsi lehet. 
Örömmel veszünk olyan 
írásokat, cikkeket, melyek más 
géptípusokkal foglalkoznak. 

A beérkezett munkákat 
a szerkesztőséggel megvitatjuk, 
a közlésre alkalmasakat 
a soron következő számok 
valamelyikében rovatunkban 
megjelentetjük. A következő 
írásunkat az újdonsült Amiga 
tulajdonosoknak ajánljuk. 

Az újság legközelebbi számában 
a vírusokról, a vírusvédelemről 
készült cikkünket fogjuk, 
a bevezetésben felvett témakörök 
mellett közölni. 
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TIPPEK - TRÜKKÖK 
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EZÚTTAL SZERETNÉNK FELHÍVÁST INTÉZNI OLVASÓINKHOZ! SAJÁT, VAGY CSOPORTO 
SAN ELKÉSZÍTETT MUNKÁIKAT, LEÍRÁSAIKAT, CIKKEIKET ÖRÖMMEL FOGADJUK, ÉS 
AZ ARRA ÉRDEMESEKET ROVATUNKBAN KÖZÖUÜK. REMÉLJÜK, HOGY SOK AMATÖR 
CIKKÍRÓVAL TALÁLKOZUNK. AZ AIR SERVICE REPÜLŐGÉPES SZOLGÁLAT JÓVOLTÁ¬ 
BÓL A BEÉRKEZETT IROMÁNYOK KÖZÖTT BUDAPESTI SÉTAREPÜLÉST SORSOLUNK 
KI. A GÉPELT, VAGY NYOMTATOTT SZÖVEGET TARTALMAZÓ LEVELET AZ 1399 BP. PF. 
701/55 LEVÉLCÍMRE LEHET ELKÜLDENI. (A CÍMZETT ROVATBA KÉRJÜK FELTÜNTETNI 
FRIEND TWO CREW (CIKK)). 


re A501-CS kártya. Ez az Amiga 500 alján lévő 
lédéi levétele után a nyáklapon elhelyezkedő 
portra köthető. A Combitec DRAM bővítők az 
500-as RAM-ját 2, 4, 8 Mbyte-lal növelik. A 
felsorolt bővítők hibája, hogy a tárolt adatok 
a gép kikapcsolása után megsemmisülnek. A 
Combitec S RAM 500/IM típusú 512 kbyle-os 
bővítője már képes az adatokat több hónapig 
tárolni. A Combitec dinamikus bővítői az 
A2000. A3000, A4000-hez is megvásárolha¬ 
tók. Az A2058 jelzésű bővítő 2, 4, 8 mbyte 
kapacitású. Ezek a bővítők nagyon drágák, 
ezért érdemes a párezer forintba kerülő 
A501-es bővítőt megvásárolnunk. Az. A500- 
ashoz 1993-ban már csaknem I MB memóriai¬ 
gényű programokat készítenek, ezért szüksé¬ 
ges a bővítő. 

Vírusok, vírusvédelem 

A lehető legkülönfélébb módon igyekez¬ 
nek megakadályozni a különféle programok 
használatát. Általános jellemzőjük, hogy ké¬ 
pesek önmagukat szaporítani. Az ún. IRQ- 
vírusok leggyakrabban a programok végére fű¬ 
ződnek, és a program belépési címét átírják a 
saját belépési címükre. Ezeket a cseles kis 
programokat leggyakrabban unatkozó progra¬ 
mozók fabrikálják egymás ugratására, sajnos 
ennek általában a felhasználók is megisszák a 
levét. Szerencsére mindig akad olyan progra¬ 
mozó is, aki a vírusellenes softverek (víruskil- 
lerek) készítésével foglalkozik. A víruskillere- 
ket többnyire szabadon terjeszthető program¬ 
ként szokták a felhasználók rendelkezésére bo¬ 
csátani. A vírusok a fertőzött lemezről beke¬ 
rülnek a gép memóriájába. A számítógép ki¬ 
kapcsolásáig több tucat lemezt is észrevétlenül 
megfertőzhetnek. Igen nagy veszélyt jelenthet 
a merevlemezes kiegészítővel rendelkezők 
számára. A vírus a gép kapacitását több Mbájt- 
tal csökkentheti. Vannak ártalmatlan vírusok 
is, amelyek gyakran megtréfálhatják a felhasz¬ 
nálót. Ilyenkor nem károsodik semmi, csupán 
időleges zavart tapasztalunk. A felhasználó 
sokszor nem tudja eldönteni, hogy ártalmatlan 
vírussal áll-e szemben. Vannak olyan vírusok, 
amelyek az illetéktelen másolás ellen lettek 
létrehozva. A vírusfertőzéshez az is elegendő, 
ha a még nem fertőzött lemezt olyan gépbe 
tesszük, amelyben előzőleg vírussal fertőzött 
lemez volt. A vírushatások változatossága ki¬ 
meríthetetlen, hiszen az emberi leleményesség 
is határtalan. A vírus miatt nem tudjuk a prog¬ 
ramot folytatni, amely egy játékprogram ese¬ 
tében csupán bosszantó, de egy szövegszer¬ 
kesztő vagy egy adatbázis-kezelő működteté¬ 
sében már gondot okoz, hiszen több órai mun¬ 
kánk veszhet kárba. Ismerkedjünk meg né¬ 
hány elterjedt Amiga vírussal, és víruskiller- 
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rel. Exterminator: Az Exterminátor — más né¬ 
ven LAMER — a lemezen lévő sávokat pusztí¬ 
tó módon a LAMER! LAMER! LAMER! feli¬ 
rattal írja tele. Byte Bandit: Svájci vírus. Jel¬ 
lemzője, hogy időnként elsötétül a képernyő, 
és a program lefagy. A munkát ilyenkor be kell 
fejezni. Van egy trükk, amely segít. Nyomjuk 
le egyszerre a kél ALT, a két AM IGA, valamint 
a SPACE billentyűt. Máris folytathatjuk a 
programot. Sajnos ez nem tökéletes megoldás, 
mivel a hiba egyre sűrűbben jelentkezik. Byte 
Warrior: A Byte Bandiihoz hasonló hibajelen¬ 
séget tapasztalunk. Disk monitorral vizsgálva 
a fertőzött lemezt a DASAO.2 részletet talál¬ 
juk. Ezért DASA vírusnak is szokták nevezni. 
IRQ: iánk vírus. Megkeresi a Startup-se- 
quence második programját, és megpróbálja 
megfertőzni. Ha ez nem sikerül, akkor hozzá¬ 
kapcsolja magát a D1R parancshoz. Ha írásvé¬ 
dett lemezt teszünk a meghajtóba a Disk xy is 
writc protcctcd please remove felirattal próbál 
ja kikapcsoltatni a védelmet a gép kezelőjével. 
Ez nem butblokk vírus. SCA vírus: Svájci. 
Kárt a butblokkot használó programokban 
okoz. Persze az is elég, hogy a számítógép 
időnként lefagy, és csak reszetelni tudunk. Ha 
a gépet nem kapcsoljuk ki, csak a memóriát tö¬ 
röljük, a vírus hamarosan bejelentkezik. Mo¬ 
nitorral vizsgálva a Something wonderful has 
happened. Your Amiga is alive feliratot talál¬ 
juk. A vírus számos fajtáját ismerjük, pl. az 
A EK. az LSD. az OBELISK. MECHANIZ¬ 
MUS: Az Amiga a lemez ismertctőjclét auto¬ 
matikusan olvassa be. A gép megkeresi a DOS 
jelzést, és ha megtalálja elindítja az alaprutint. 
A start rutin végrehajtása során kerülhet be a 
vírus. Módosítja a részét rutint, és helyet fog¬ 
lal a memóriában. Reszetelés esetén mindig 
hibajelzést kapunk. Disk monitorral vizsgálva 
a fertőzött lemezt az első két blokk eltér egy 
vírusmentes lemez említett blokkjaitól. Biti- 
blokk vírus: Az Amiga butblokkjában rejtőz¬ 
ködik. Igen rövid program. Felülírja az eredeti 
programot, és reszetáléssel sem tűntethető el. 
Trójai faló: Nem a butblokkot használja, ha 
nem be van épülve a programba. Az illetékte¬ 
len másolás ellen készült. A másolaton egy kis 
részlet nem egyezik meg az eredetivel. Ekkor 
a vírusprogram aktiválódik és fokozatosan 
megsemmisíti a sofvert. Nehezen észrevehető, 
ezért több száz másolat is elkészülhet a hiba 
észleléséig. Néhány butblokk vírus: GADAF- 
Fl, TIME, BOMB, REVENGE, NORTH 
STAR... stb. Védekezés. A betegség elleni vé¬ 
dekezés legjobb módja a megelőzés. A követ¬ 
kezőképpen tudjuk ezt elérni: 1. Azokat a le¬ 
mezeket, amelyekről csak betöltjük az adato¬ 
kat, mindig írásvédett állapotban használjuk. 
2. Ha nem gyári lemezről másolunk, akkor a 
végrehajtás előtt ellenőrizzük, hogy nem volt- 


e jelen vírus. 3. Ha lehet, a vásárolt vagy álta¬ 
lunk írt fontosabb programokról még a legelső 
félhasználás előtt készítsünk biztonsági máso¬ 
latot, egy vírusmentes másolóval. 4. A merev¬ 
lemezes tulajdonosok csak az ellenőrzés után 
aktiválják a winchestert. 5. Néha az segít, ha 
figyeljük a program betöltésének fázisait, és az 
esetleges eltéréseknél részételünk. 6. Copy-val 
történő másolás során bizonyos időközönként 
kapcsoljuk ki a gépel. A vírus ekkor általában 
megsemmisül, hiszen ő is csak egy kis prog¬ 
ram. 7. Kikapcsoláskor várjunk tíz másodper¬ 
cet, majd aktiváljuk a gépet. 8. A lemezeket 
időnként listázzuk. Vizsgáljuk meg a tartalom 
jegyzéket. Ha találunk új furcsa fájlokat, el¬ 
képzelhető hogy fertőzött a lemez. Ismerjünk 
meg néhán víruskillert is. ERI STAR VIRUS- 
KILLERPRÚFJESSIONAL: Nem PD vírusölő. 
A bejelentkező képernyőtől az egér bal billen¬ 
tyűjének megnyomásával lephetünk be a főme¬ 
nübe. A képernyőn két ablakot látunk: a bal ol¬ 
dali a memóriában lévő, míg a jobb oldali a le¬ 
mezen található vírusok kimutatására szolgál. 
M inden vírushoz egy kép is tartozik. Az ablak¬ 
ban a kép megjelenése jelzi a keresés közben 
megtalált vírust. Az ismert vírusok: NORTH- 
STAR7SCA? DASA7DISK DOCIÖRS7GA- 
DAFFT7 LAMER. A menüben az alábbi négy 
parancs közül választhatunk: KJLL VÍRUS: 
kiírja a memóriában lévő azonosított vírust. 
INSTALL DISK: törli a meghajtóban lévő le¬ 
mez butblokkját és oda egy védett butblokkot 
másol. PROTECLSCA és a DASA vírusok el¬ 
leni védelmet helyez a mágneslemezre. 
DUMP: a képernyőre listázza a meghajtóban 
lévő lemez butblokkját ASCII formában. A 
másik program a VÍRUS EXRER'E néven fut. 
Képes a BootBlock vírusokat megtanulni, és a 
későbbiek során felismerni. Sajnos az IRQ ví¬ 
rusok ellen alkalmatlan. Vírus Checker napja¬ 
ink legjobb vírusölője, több mint 69 verziója 
létezik. Felismeri a következő vírusokat, és 
megsemmisíti őket: SCA, AEK, LSD, BYTE- 
BAND1T, REVENGE, BYTEWARRIOR. 
NORTHSTAR, OBELISK, IRQ, PENTA¬ 
GON, HCS, DISK DOCPORS, LAMER EX- 
TERMINATOR, TIME BOMBS, CCCP. LI- 
BERATOR stb. A Vírus Chcckcrrcl a Com¬ 
modore újság 93/5-ös számában már kolle¬ 
gánk foglalkozott. Érdemes ezt a számot a 
szerkesztőség irodájában, vagy postai utánvét¬ 
tel megvásárolni. 

Hardverkiegészítők 

MONITOROK: Commodore 1081-es mo¬ 
nitor már csak használtan kapható. A legelter¬ 
jedtebb típus az 1084-cs, amelynek Scart, 
RGB és FBAS bemeneté is van. Ennek sztereó 
változata az 1084 S jelzésű készülék. A felso¬ 
rolt készülék hibája, hogy Interlace üzemmód¬ 
ban remeg a kép. Ez a jelenség a 2024-es 
1008x800 felbontású monitoron már nem ér¬ 
zékelhető. Philips CM 8833 típusú monitor 
felbontása jóval nagyobb, mint az 1084 S ké¬ 
szüléké. Aki PC üzemmódban használja az 
Amigát, annak érdemes megvásárolni a Multi- 
syne II névre hallgató monitort. A piacon még 
ismert monitorok a Highsetccn KP 748, Phi¬ 
lips 8833II. A C-1084Sára 25-30ezer forint 
körül változik. 
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C64 

91/ 5 

Raster Split 

50.- 

283 

+4 

91/ ő 

Programnyilvántartó 

80.- 

284 

C64 

91/ 6 

Regiszter 

60.- 

285 

C64 

9 L / 6 

Digitalizalt zene 

50.- 

286 

C64 

91/ 6 

ékezetes MPS 802 

80.- 

287 

C64 

91/ 7 

‘Ékezetes iratkészito 

100.- 

288 

+4 

91/ 7 

Bűvös téglalap 

100.- 

289 

C64 

91/ 7 

Dominó - H 

100.- 

290 

C64 

91/ 7 

Raktáros 

80.- 

291 

♦ 4 

91/ 7 

Tologató 

60.- 

292 

C64 

91/ 7 

Aren 20U0 

50.- 

.: ' | 

C64 

91/ 7 

Bad Lamps 

80.- 

294 

C64 

91/ 7 

Operation Patnot 

50.- 

295 

+4 

91/ 7 

Moza t k - B 

90.- 

296 

+ 4 

91/ 7 

Lógí Kód 

60.- 

297 

C64 

92/ 1 

Databevivő 

50.- 

298 

+ 4 

91/ 7 

Bőmber 

50.- 

299 

+4 

91/ 7 

Dominó - K 

50.- 

300 

+4 

91/ 7 

The Wal1 

40.- 

301 

C64 

91/ 7 

Mozaik - K 

50.- 

3U2 

+4 

91/ 7 

Dominó - R 

60.- 

303 

+4 

91/ 7 

“Horgok Kincse 

190.- 

304 

+ 4 

91/ 7 

Asteroids 

60 . - 

305 

C64 

91/ 9 

Ékezetes irat rorras 

40.- 

306 

C64 

91/ 9 

Yugo2 

50.- 

307 

C64 

91/ 9 

Adventure - Sz 

130.- 

308 

064 

91/ 9 

Morze Oktató B. 

130.- 

309 

+4 

91/ 9 

Memory Game Plus 

100.- 

310 

C64 

91/ 9 

"Copitaly 

1 )Ű 

311 

C64 

91/ 9 

"Gengszterek 

60. - 

312 

C64 

91/ 9 

"Kuldetes 2000 

100.- 

313 

C64 

91/9 

Itt a $ hol a $ 

50.- 

314 

C64 

91/ 9 

Hewing 

50.- 

315 

♦ 4 

91/10 

Mikrobí 

50.- 

316 

+4 

91/10 

Nest oí ; KI eas 

190.- 

317 

+4 

91/10 

Adventure - F 

100.- 

318 

+4 

91/1U 

A világ szeme 

150 . - 

319 

C64 


Gondolkozó 

100.- 

320 

064 

9 

Memori B 

130.- 

321 

+ 4 

91/10 

Matekastély 

100.- 

322 

C64 

91/11 

Lottó 

80.- 

323 

064 

91/11 

Totó 

80.- 

324 

C64 

91/11 

Német gyakorló 

60.- 

325 

+4 

91/11 

Beszelő szótár 

130.- 

326 

+4 

91/11 

Fi)e examiner 

60.- 

327 

064 

91/11 

Sprite szerkesztő 

50 - 

328 

6 1 

91/íl 

Egyszínű Sprite 

50.- 

329 

C64 

91/12 

Ruiett javítás 

50.- 

330 

C64 

91/12 

Tőzsde 

130.- 

331 

C64 

91/12 

IQ teszt 

150.- 

332 

C64 

92/ 1 

Kaland)ep 

80.- 

333 

C64 

92/ 1 

Leve 1iró 

80 . - 

334 

064 

92/ 1 

Keoernvómaszkoio 

130.- 

335 

064 

92/ 1 

Sprite Kezelő 

100.- 

336 

Cb4 

i 

Sí - ÓPART 

40.- 

337 

C64 

92/ 2 

Patience Quartet 

130.- 

338 

C 64 

92/ 2 

Monopoly 

130.- 

339 

C64 

92/ 2 

Akasztofa 

80.- 

340 

C64 

92/ 2 

Karaktertervező 

60.- 

341 

C64 

92/ 3 

String Array Manager 

100.- 

342 

C64 

92/ 3 

Sprite Basic 

50.- 

343 

€64 

92/ 3 

Screeri Help 

50.- 

344 

064 

92/ 3 

Gyors validate 

60.- 

345 

064 

92/ 3 

BASIC SYNTAXER I. 

190.- 

346 

064 

92/ 4 

Tologató Cö4-re 

1 00 . - 

347 

064 

92/ 4 

ABC rendező 

100.- 

348 

064 

92/ 5 

"Matek + Római számok 

100.- 

349 

+4 

92/ 6 

Tesztkészitö + értékelő 

100.- 

350 

C64 

92/ 3 

BASIC SYNTAXER II. 

190.- 

351 

+4 

92/ 7 

Három játék 

110.- 

352 

+4 

92/ 7 

Szökés 

80.- 

353 

C64 

92/ 7 

Toto 

150.- 

354 

C64 

92/ 7 

DIGIT analízis program 

110.- 

355 

M 

92/ 7 

SCREEN DUMP 

150.- 

356 

€64 

92/ 9 

ÍJNÍSEQ f í lekezelő 

130 .- 

357 

C64 

92/ 9 

Graphic Copy 

60.- 

358 

C64 

92/10 

Printfox Resizer 

130.- 

359 

C+4 

1 > 2 / I i 

Tologató I I. 

150.- 

360 

C+4 

92/12 

Sprite Plus-4-en 

130.- 

361 

C64 

92/12 

Vá 1 t.ozó 1 ista 

150.- 

362 

€64. f-4 

93/ 2 

Szomszéd játék 

200 . - 

363 

€64 

93/ 2 

Táblás játék 

200.- 

364 

€64 

93/ 2 

SEDA 

150.- 

365 

C64 

93/ 2 

415 * 200 

120.- 

366 

-*-4 

93/ 2 

OTP hitel 

100.- 

367 

€64 

93/ 3 

Catalog~Check(CTC) 

150.- 

368 

€64 

93/ 3 

Pattogó goiyok 

200. - 

369 

C64 

93/ 3 

Beszórítós (DO-GUTÍ) 

150.- 

370 

C64 

93/ 3 

"Zsirozas 

200.- 

371 

€64 

93/ 4 

Attrib 64 

50.- 

372 

€64 

93/ 4 

Táblázatnyomtató 

80 .- 

373 

C+4 

93/ 4 

Bon tékkészitó 

80.- 

374 

C+4 

93/ 4 

TV-óra 

50.- 

375 

064 

93/ 4 

Mini Domino 

150.- 

376 

C64 

93/ 4 

Megathe1lo 

120 .- 

377 

C64 

93/ 4 

Reversi 

120.- 

378 

€64 

93/ 4 

Tengeri csata 

120.- 

379 

C64 

93/ 5 

V í deokazet t.ak 

80.- 

380 

€+4 

93/ 5 

DIN-karakterek 

80 

381 

i ;64 

93/ 5 

DIRYPIRY 

80.- 

382 

C64 

93/ 5 

Birodalom 

150 . - 
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Kérem, hogy a Commodore Újság legközelebbi számában 
jelenjen meg a következő szövegű apróhirdetés: 


(minden kockába egy betűt írjon) 



Tagsági szám: 


Feladandó az újság címére: 

Commodore Újság 
Budapest, 1388. Pf. 86. 

Alulírott megrendelem a következő programokat a PÖTVÖ- 
GŐSZOLGÁLAT-tól: 


PROGRAM SORSZÁMA 

ÁRA 

1- 




LU •- Ft 

2. 




LU ~ Ft 

3. 



LU- Ft 

4. 



LU- Ft 

5. 



LU'- Ft 

6. 



U LU ~ Ft 

7. 




LU'- Ft 

8. 



LU- Ft 

9. 




LU- Ft 


összesen: | | | db | | | | Ft 


A programokat a SZOLGÁLAT által biztosított 
lemezre (99 Ft/db) 
kazettára (40 Ft/db) 

az általam küldött adathordozóra kérem. 

(Kérjük a megfelelő szöveg aláhúzását!) 

Postaköltség + munkadíj 

A fizetés módja: személyesen — csekken — utánvéttel 

(Kérjük a megfelelő szöveg aláhúzását!) 

ÖSSZESEN: 

A megrendelő neve:. 


Címe: 



c 
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KERESZTREJTVÉNY 
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Cf 

BOLYAI JÁNOS 
( 1802 - 1860 ) 

A meghatározásokat nem választot¬ 
tuk külön, hanem a számozás sorrendjé¬ 
ben folyamatosan adjuk. Ha egy számtól 
mindkét irányba indul ki a megfejtés, ak¬ 
kor előbb a vízszintes, majd egy gondolat¬ 
jellel elválasztva a függőleges meghatáro¬ 
zás szerepel. 

MEGHATÁROZÁSOK: 1. Markó Pál 
költő egyik versének címe. — Ennyi éves 
volt Bolyai János mikor meghalt. 2. 
Kambodzsai és kubai gépkocsik jelzései. 
3. Veszprém megyei helység. 4. Bejgli fáj¬ 
ta. 5. Személyesnévmás többese. 6. Bo¬ 
lyai János feleségének leánykori neve. 7. 
Botswanái gépkocsi jelzése. 8. Pénzinté¬ 
zet. 9. Értéke. 10. Nikkel vegyjele. 11. Sáv. 
12. Itt született Bolyai János matema¬ 
tikus. 13. Város Dél-Olaszországban. 14. 
Római számok. 15. Korrövidítés. 16. Két 
magánhangzó. 17. Nyakbavaló. — Jugosz¬ 
láviai városból való. 18. Szülő anyák védő- 
szentje. 19. Nátrium vegyjele. 20. Tetejé¬ 
re. — Azonos a vízszintessel. 21. Sportol. 
22. Becézett leánynév. 23. Itt született 
Bayer Ilona tv-bemondónő is. 24. Szív kö¬ 
zepe. 25. Állóvíz fordítva. 26. Heves me¬ 
gyei helység. — Van ilyen kereső is. 27. 
Ételízesítő. 28. Nép. 29. Ceruza. 30. 
Irányszó. — Evőeszköz. 31. Y. S. 32. 
Króm és jód vegyjele. 33. Folyó. 34. Ma¬ 
gános település. — Kacsát etet. 35. Azo¬ 
nos a 31. függőlegessel. 36. Félretett kár¬ 
tya. 37. Villásrcggeli. 38. Utópisztikus 
társadalomtudományi műve volt Bolyai 
Jánosnak. 39. Névelős sporteszköz. 40. 
Étkező. — Ilyen tanulmány is van. 41. 
Nem minket. 42. Nem az. 43. Markó Pál 
másik versének címe. 44. Napszak más¬ 
salhangzói. 45. Van szeme. 46. Fejfedő. — 
Igen szegény. 47. Latin citátum. 48. Ezüst 
vegyjele. — Vonatkozó névmás. 49. Du- 
namenti város. 50. Virágtartója. — Hal 
fajta. 51. Heves megyei helység. 52. 


Rendben. 53. Kétté(!). 54. Férfinevet. 55. 
Lóverseny szó. 56. Betűt vet. 57. Ilyen ve¬ 
tés is van. 58. Törökországi gépkocsi jel¬ 
zés. 59. Szerszám. 60. Kén és kálium 
vegyjele. 61. Vissza: férfinév. 62. Idegen 
férfinév. 63. Elődöt. 64. Vissza: napszak. 
65. Azonos a 28. függőlegessel. 60. Oly 
keveredés. 67. Saller egyik féle. 68. Az 
elektromos feszültség gyakorlati egysége. 


— Ov. 69. Titokban figyel. 70. Kikötői ha¬ 
jóhíd. 71. Gönc egyik fele. 72. Időhatáro¬ 
zó. 73. Emberiség leghőbb vágya. 74. Eb¬ 
ben a betegségben halt meg Bolyai Já¬ 
nos matematikus. 

A rejtvényt nem kell beküldeni, mert 
szórakoztató jellegű! 

Mokos István 


C-64 programokat cserélnék, 
kérésre programlistát adok. 
Szilvási Ákos, 2120 Dunake¬ 
szi, Iskola S. 3. 

Zymosis-soft legújabb képes 
katalógusa 30 Ft-os bélyeg el¬ 
lenében megrendelhető! 
(AMIGÁRA) Olcsó árak, ki¬ 
tűnő minőség, a legújabb si¬ 
kerprogramok, kedvezmények. 
ZYMOSIS-SOFT, 2621 Verő¬ 
ce, Asztalos János u. 8/b. 
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A legújabb, legjobb IBM 
programok óriási választék¬ 
ban eladók, már 80 Ft-ért le¬ 
mezzel együtt! Válaszborí¬ 
tékra ingyenes tájékoztató. 
Nagy István, 1202 Budapest, 
Mártírok útja 151. 

Programok C-64-re és C+4- 
re 57 Ft/lemez áron! Cím: 
BCSB Team, Boldizsár Gá¬ 
bor, 3242 Parádsasvár, Arany 
J. u. 34. 


PROGRAMOK ÍRÁSÁT vál¬ 
laljuk C-64-re és C+4-re. 
BCSB Team, Sidló Csaba, 
3242 Parádsasvár, 

Arany J. u. 33. 

C-64-re: kapcsolás nyilván¬ 
tartó, szoft-hardver kataló¬ 
gus, GEOS-lexikon, NYÁK- 
tervező, leírás gyűjtemény. 
Minden alkalmi áron! Kész¬ 
let korlátozott! Varsányi, 
Szombathely, Nagy L. u. 11. 


576-ban megjelent, egyéb C- 
64-es programok eladása le¬ 
mezen, kazettán. Lemezes 
programok kazettán nagyon 
alacsony árak! Deutsch Sza¬ 
bolcs, 8749 Zalakaros, Fő út 
19. Tel.: 93/340-481. 

Eladó 4 hónapos C-128D ga¬ 
ranciális 128/64-es üzemmó¬ 
dok 20 db lemez 23 000 Ft. 
Hétvégén, 1155 Budapest, 
Rákos út 140. 














































































































































APRÓCSKÁK 


Cr 

Egyszerű betöltés 

Eléggé közismert, hogyan lehet a programokat egyszerűen 
betölteni: Behívjuk a directoryt, a kurzorral a kívánt program- 
névre lépünk, beadjuk a DLOAD utasítást, majd az (ESC) (K) 
funkcióval a sor végére lépünk, s ott a (DEL) háromszori meg¬ 
nyomásával kitöröljük a fölösleges betűket. A (RETURN) meg¬ 
nyomására a kívánt program máris betöltődik. Más lehetőség a 
DLOAD és a (TAB) háromszori használata. Ezután egy kettős¬ 
pontot kell kitennünk. A (RETURN)-re itt is betöltődik a tarta¬ 
lomjegyzékből kiválasztott program. 

De mire valók akkor a funkciós billentyűk? Az (F2)-es ezek 
közül már eleve föl van szerelve a DLOAD " karakterekkel. Ak¬ 
kor pedig érdemes ezt a gombot kissé átdefiniálni: 

KEY 2," DLOAD" +CHR$(9)+CHR$(9)+CHTR$(9)+" 

+CHR$(13) 

Ha ezek után nyomjuk meg az (F2)-es gombot, a legutóbbi 
magyarázat szerint hívjuk be a kiválasztott programot. Ha azt 
a behívás után azonnal el akarjuk indítani, vagy a (F2)-t, vagy 
az (F6)-ot definiáljuk át: 

KEY 6," RUN" +CHR$(9)+CHR$(9)+CHTR$(9)+ " 

+CHR$(13) 

Hogy az adott funkciós billentyű foglaltságot állandóan 
használhassuk, érdemes azt egy programba írni, s az egészet egy 
lemez első állományaként kezelni. Ekkor ugyanis a (SHIFT) és 
a (RUN/STOP) billentyű megnyomásával azonnal el lehet indíta¬ 
ni. A kívánt funkciós billentyű foglaltságok így villámgyorsan 
(és gombnyomásra) a rendelkezésre állnak. 


Véletlen számok 

Véletlen számokat jól lehet asszemblerben egy rekeszben 
létrehozni. Erre a legcélszerűbb a SID-et alkalmazni. A SÍD 
harmadik hangját susogásra kapcsolni (129-es hullámforma). 
Ekkor véletlen zörejek keltődnek hardver oldalról. Ezeket le le¬ 
het kérdezni és ezek nagyon jó és mindenekelőtt valódi véletlen 
számokat adnak 0—255 között. 

1 POKE 54287,100: 

RÉM hangmagasság beállítva 100-ra 

2 POKE 54290,129: 

RÉM fehér susogás 

3 PRINT PEEK (54299) 

4 GOTO 3: RÉM mégegyszer 

A fehér susogás a rózsaszín susogással ellentétben az egész 
frekvenciatartományban véletlenszerű frekvenciaeloszlást vált 
ki. 


Nincs hang és időkijelzés 

Ha a C64 nem ad ki hangot, és a két CIA valósidejű órája 
sem működik, akkor nagy valószínűséggel, szinte biztosan a vál¬ 
takozó feszültségű áramellátás szakadt meg. 

Az okot könnyű megszüntetni, mivel ebben az esetben az 
okozta a hibát, hogy bekapcsolt számítógépbe dugták be a magnó 
(Datasette) csatlakozóját. Ez rövidzárlatot okozott, és a számító¬ 
gépben kiégett a biztosíték. Ennek a kicserélése után minden ki¬ 
fogástalanul fog működni. 




Sikeres C+4 programok 
magnón: 30—60 Ft/db. Vá¬ 
laszborítékért lista. Bujdosó 
Csaba, 2340 Kiskunlacháza, 
Tavasz u. 7. 

Eladó: C-64/II + 1541 + Ju- 
noszty monitoros + Philips 
80 monitor + TDK lemezek 
programokkal. 1224 Budapest, 
VII. u. 4. Tel.: 227-22-60. 

MPS-803-as nyomtató ma¬ 
gyar nyelvű kezelő könyvét 
és műszaki leírását keresem. 
Tel.: 1-374-642. Orgoványi. 

C-64-esek figyelem! Progra¬ 
mokat adok-veszek-cserélek 
lemezre és kazettára, (bővült 
lista, leírások, kedvezmé¬ 
nyek, régi és új programok, 
pl: BATTLE COMMAND, 
CREATYREST I—II stb.) 
Válaszborítékért lista! Papp 
Mihály, 4034 Debrecen, Ke¬ 
recsen u. 37. 

C-64 és C+4 kazetták 200 
Ft/db lemezek 50 Ft/db. 


áron! Listát küldök. Cserháth 
Zoltán, 1171 Budapest, Dal¬ 
nok u. 5. 

Eladó: Plus/4-es alapgép + 
magnó + programkazetták + 
fényceruza. Árajánlatokat a 
következő címre kérek: Czif- 
ra Zoltán, 5231 Fegyvernek, 
Kiss János u. 18/a. 

C-64 kazettán keresem Szel- 
lemírtók 2-t, FLIM- 
BO’SQUEST, Preparator! 
Farkas Gábor, 7300 Komló, 
Vértanúk u. 5. 

Tisztelt C-64 felhasználó! 
Megrendelhető az általunk 
kifejlesztett NARANCS 3 
6200 nevű katalógus készítő 
program. Márkás lemezen 
kapható. Tartozik hozzá még 
egy részletes, könnyen átte¬ 
kinthető használati utasítás is. 
Ára: 500 Ft, amely tartalmaz¬ 
za a postaköltséget is. A prog¬ 
ram előnyeiről a 162-7724-es 
telefonszámon, vagy a fenti le¬ 
vélcímen kap felvilágosítást. 


Játék- és felhasználói, vala¬ 
mint demó programok el¬ 
adók! Kérjük tüntesse fel a 
gépe típusát és a hozzá tar¬ 
tozó perifériákat. /Vízhatlan 
csomagolás, kedvezmények) 
Bélyeggel ellátott válaszborí¬ 
tékért listát küldünk. (Ami¬ 
ga) FRIEND TWO CREW, 
1399 Budapest, Pf.: 701/55, 
(C-64) BUMBLE BEE, 116 
Budapest, Sáfrány u. 44. 
Tel.: 162-7724. 

C-64-re 6300 program eladó 
60 Ft/lemez áron. Válaszbo¬ 
rítékért lista. Szabó Sándor 
(GSOFT), 1204 Budapest, 
Maros u. 98. 

Programok írását vállaljuk C- 
64-re és C+4-rc. Cím: BCSB 
Team, Sidló Csaba, 3242 Pa- 
rádsasvár, Arany J. u. 33. 

Keresem a Geofile, Geopub- 
lish, Geocalc, Fontpack plus 
és Despack plus GEOS prog¬ 
ramokat és leírást. Hajdú, 
Tel.: 181-0002. 


Keresek Citizen 120D nyom¬ 
tatóhoz magyar nyelvű kézi¬ 
könyvet és IBM (párhuza¬ 
mos) interfacét. Hajdú, Tel.: 
181-0002. 

NYÁK-tervező és rajzoló 
programokat keresek C-64- 
re. Más felhasználói progra¬ 
mok is érdekelnek! Nyári 
Zsolt, 7099 Felsőnyék, Kos¬ 
suth u.16. 


Figyelem! Figyelem! Most 
indul egy új lemezújság, ami¬ 
nek Meteor a neve. Még most 
küld el a címedet ha swapper 
vagy. Figyelem magyar demó- 
csapatok: Küldjétek member- 
listát és leközöljük, ha hirde¬ 
tést küldesz szintén leközöl¬ 
jük. Nemsokára készen lesz az 
első szám és még valami: 
Most leszegy party (1993. au¬ 
gusztus 28-án Várpalotán, és 
lesz bővebb információ a Me¬ 
teorban lesz. Címünk: FUN- 
FACTORY, 8000 Székesfe¬ 
hérvár, Bcnkc F. u. 13. fszt. 
1. Tel.: 132-4568. 
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EGYESÜLET 


ACOMP Kft. 

JÚLIUSI-AUGUSZTUSI 
60 Ft-os 

vásárlási utalványa 

Beváltható 500 Ft feletti 
készpénzes vásárlás esetén a 
1141 Budapest, Álmos vezér útja 17. 
szám alatti üzletben. 

Érvényes: 1993. augusztus 31-ig. 

Egy személy részére egyszeri vásárláshoz 
egy utalvány használható fel! 


A NOVOTRADE SZERVIZ Kft. az alább felsorolt szervizeiben 
mindenféle szervizszolgáltatás munkadíjából 10% kedvez¬ 
ményt ad az egyesületi tagoknak. 


1083 

3525 

5600 

6724 

9700 


Budapest, Szigony u. 8. 
Miskolc, Fazekas u. 1-3. 
Békéscsaba, Bartók B. u. 37. 
Szeged, Csongrádi sugárút 76, 
Szombathely, Szalonak u. 31. 


Tel.: 1343-153 
Tel.: 46/321-488 
Tel.: 66/327-195 
Tel.: 62/493-185 
Tel.: 94/314-519 


Igazolás: a javítandó berendezés leadásakor egyesületi igazolvánnyal. 
A kedvezmény többször is igénybe vehető. 



MAKROVILÁG 

utazási iroda 


Az Országos Commodore Egyesület szolgáltatásai 

Egyesületi tagoknak 20% kedvezmény: 


Beváltható 

utazás megrendelése esetén 

az Üllői úti főirodában az alábbiak szerint: 

5 000 Ft-ig — 200 Ft kedvezmény 

10 000 Ft-lg — 400 Ft kedvezmény 

20 000 Ft-lg — 500 Ft kedvezmény 

20 000 Ft felett — 1000 Ft kedvezmény 
Csoportok jelentkezése esetén további 
kedvezményekről az irodában lehet tárgyalni 


(gdümöi) 

JÚLIUSi—AUGUSZTUSI 

60 Ft-os 

vásárlási utalvány 

Beváltható készpénzes 
vásárlás esetén a 2C Áruházban. 

Bp. XIII., Balzac u. 35. 

Érvényes: 1993. augusztus 31-ig. 


HOBBI ELEKTRONIKA 

JÚLIUSI-AUGUSZTUSI 
vásárlási utalványa 

Értéke: 

5000 Ft-ig 80Ft, 

5000 Ft felett 10% 

Beváltható a Hobbi Elektronika Kft.-nél. 
Budapest VII., Dózsa György u. 16. 
Telefon: 122-8892 

Egy személy részére egyszeri vásárláshoz 
egy utalvány használható fel! 


VC—20 memóriabővítés 3—27 kByte-os: kiépítéstől függő 

C—16, C—116 memóriájának bővítése 64 kByte-ra: 3500 Ft 

C—16 belső 16 kByte-os EPROM bővítés: 1450 Ft 

C—16 belső 32 kByte-os EPROM bővítés: 2900 Ft 

C—16 belső 8 kByte-os SOFT—ROM bővítés: 2800 Ft 

C—16 belső 32 kByte-os SOFT—ROM bővítés: 4000 Ft 

C—16 8 kByte-ról 32 kByte-ra átalakítás: 2000 Ft 

C—16 és 1541 kompatibilis lemezegység párhuzamosítása: 3200 Ft 

SOFTROM modul 32K, kikapcsoláskor sem felejt C-16, C-116, +4 5000 Ft 

FÉK C—16, C—116, +4 potméteres sebességváltoztatás 

0%-tól 100%-ig fokozatmentesen 2000 Ft 

TTL IC-teszter (Cartridge+lemezen a program) 4300 Ft 

+4, C—16, C—116 UNI—ROM modul különféle kiépítésekben: 

— 8 kByte SOFT—ROM 3400 Ft 

— 16 kByte SOFT—ROM 4000 Ft 

— 8 kByte SOFT—ROM 16 kByte EPROM 4400 Ft 

— 16 kByte SOFT—ROM 16 kByte EPROM 5000 Ft 

— 16 kByte EPROM 2200 Ft 

Egyesület tagoknak 30% kedvezmény: 

Speeddos (átkapcsolható) operációs rendszer beépítése / 

(C64 átalakítás, lemezegység átalakítás + párhuzamos kábel) 5QÖ0 Ft 

1541 kompatibilis lemezegységbe elektronikus lemezlyukasztó beépítése $00 Ft 

PAGEFOX magyar ékezetes kiadvány-szerkesztő cartridge 
(a teljes A/4-es oldal kinyomtatásához 640 pont/soros nyomtató szükesé- 
ges minimum, pl. Citizen 120D) 5500 Ft 

FASTLOAD cartridge (lemezes gyorstöltő, másoló, monitor) 1500 Ft 

TTL IC-teszter cartridge + program 4300 FT 

288/256 Kbyte-os eprombank (vezérlő eprommal) 5000 Ft 

Epromégető (2716-tól 27512-ig) 5000 Ft 

C64-hez tároló oszcilloszkóp 8000 Fi 

C64-bővítő-port elosztó (egyszerre 4 db cartridge lehet a gépben, melyeket 
gombnyomásra lehet kapcsolni) ' 7500 Ft 

C64 USER — CENTRONICS nyomtatókábel (GEOS kábel) 1500 Ft 

256 K RAM-diszk (256 Kbyte RAM-mal) 14000 Ft 

256 K RAM-diszk (64 Kbyte RAM-mal) 9000 Ft 

2x64 Kbyte-os cartridge igény szerinti programokkal feltöltve 4.300 Ft 

64 Kbyte-os cartridge igény szerinti programokkal feltöltve 3000 Ft 

Képújság (teletext) dekóder C-64-re 10000 Ft 

1764-es RAM bővítő GEOS-hoz is használható 11250 Ft 

Epromok programozása meglévő programokkal, vagy saját hozott progra¬ 
mok beégetésével 2716-tól 27512-ig az eprommal együtt egységesen 700 Ft 

Arainkat az alkatrészárak változásai befolyásolhatják. 

A fenti bővítések megrendelhetők levélben az O.C.E. címén, valamint sze¬ 
mélyesen a havonta rendezendő klubdélelöttön, ahol rendszeres bemutatót 
is tartunk. 


Postázás esetén 100 Ft postaköltség kerül felszámításra. 

A kedvezmény igénybevételéhez az O.C.E. tagsági igazolvány bemutatása 
szükséges. 
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SZERVIZ Kft. 









Sy Quest 


Hivatalos magyarországi disztribútora: 



Cím: 1053 Budapest, Henszlmann I. u. 9 
Telefon: 117-4144 Telefax: 117-9692 


Cserélhető lemezes winchester! 


Szervizeinkben és szerződött viszonteladóinkon keresztül az alábbiakat forgalmazzuk: 


SQ 555 

44 MB-os 5V4 

SCSI drive, 

SQ 400 lemez 

( 44 MB) 

SQ 5110 

88 MB-os 5V 4 

SCSI drive, 

SQ 800 lemez 

( 88 MB) 

SQ 3105A 

105 MB-os 3V 2 

AT-BUS drive, 

SQ 310 lemez 

(105 MB) 

SQ 2542A 

42 MB-os 2V 2 

AT-BUS drive, 

SQ 240 lemez 

( 42 MB) 


r 


Számítógépszerviz ! 

Személyi számítógépek és perifériák javítását, karbantartását továbbra is tőlünk 
rendelje meg! Gyors, pontos és megbízható! Örök garanciát kap, 
ha átalánydíjas javítási és karbantartási szerződésformánkkal 
védi nagy értékű gépei műszaki állapotát. 


1083 

3525 

5600 

6724 

9700 


Várjuk jelentkezését az alábbi szervizeinkben: 


Budapest, 

Miskolc, 

Békéscsaba, 

Szeged, 

Szombathely, 


Szigony u. 8. 
Fazekas u. 1-3. 
Bartók B. u. 37. 
Csongrádi sgt. 76 
Szalonak u. 31. 


Tel.: 1343-153 
Tel.: 46/321-488 
Tel.: 66/327-195 
Tel.: 62/493-185 
Tel.: 94/314-519 



NOVOTRADE SZERVIZ KFT. 























Ára: 156 Ft 



SZÁMÍTÁSTECHNIKAI KFT. 


1141 Budapest, Álmos vezér útja 17., Tel.: 183-1817, Fax: 251-2523 


Commodore Amiga 500 
Commodore Amiga 500 Plus 
Commodore Amiga 600 
Commodore Amiga 600/40 MB HD 
Commodore Amiga 1200 
Commodore Amiga 1200/40 MB FID 
Commodore Amiga 1200/80 MB FID 
Commodore Amiga 4000/040/6MB/120MB 
+ 4 MB RAM modul 
Commodore 1942 multisync Monitor 
Commodore 1084 s Stereo-Color monitor 
Commodore 1085 s Stereo-Color monitor 
Commodore A-520 TV-Modulator 
Commodore C-64 II 
Commodore C-64 + Joystick + játék 
Commodore 1541 II Ropp y ^drive 
Commodore C-128D 
Commodore 1802 monitor C-64-hez 
Commodore Datassette 
Commodore MPS 1230 printer 
512 Kb órás memóriabővítő 
2.0 Mb órás memóriabővítő 
1.0 Mb-gs chip bővítő Amiga 500 Plus-ba 
1.0 Mp-os órás chip bővítő Amiga 600-ba 
1 MB/4 MB Fást bővítő Amiga 1200-ba 
Quickshot II Plus Joystick 
TFIE BÚG mikrokapcsolós profi Joystick 
Quickshot QS ■ 123 analóg joystick 
Mouse pad 

Noris üveg 14" monitorfilter 
Noris hálós 14" monitorfilter 
Noris MB 80 3,5” lemeztartó 
Noris DB 100 5,25” lemeztartó 
4 Player Adapter(4 Joystick csatlakozó) 


28 900 Ft 

29 900 Ft 
24 990 Ft 
53 500 Ft 
49 990 Ft 
74 900 Ft 
87 900 Ft 

269 000 Ft 
29 000 Ft 
51 900 Ft 
28 900 Ft 
27 900 FI 
3 500 jj 

8 890 Ft 

9 390 Ft 
9 990 Ft 

^24 9 9TFt 
24 990 Ft 
1 750 Ft 
19 800 Ft 
3 200 Ft 
9 900 Ft 
5 500 Ft 
5 900 Ft 
???? Ft 
640 Ft 
2990 Ft 
940 Ft 
200 Ft 
^990 Ft 
590 R 
390 Ft 
390 Ft 
1890 Ft 


NoName 3.5" QSDD lemez 
NoName 3.5” DSHD lemez 
NoName 5.25" DSDD lemez 
NoName 5.25" DSHD lemez 
MF2-DD lemez 
lemez 

5.25” MD2-HD lemez 


Maxell 

Maxell 

Profex 





5.25” MD 2DD lemez 
Fuji 5,25” MF ; 

Action Replay Mjflllm(AiFníga)|+jt 
Action Replay MR Vlji((^64)^éÍkönyvveT 
C-64 midi szoftverrel 
C-64/C-128 mouse 

Swifty Amiga/Atari Mouse (3 gombos) 

Midi Amiga Interface 
Handyscanner Amigához 

Boot Selector Amigához 
Stereo hangdigitalizáló Amigához 
Trackball Amigához 
Sound Blaster PRO-2 Deluxe 
Sound Blaster 16 ASP Deluxe 
Rocgen Genlock fór Amiga 
Rockey Advanced Videó Keying fór Amíg; 
Roctec 3,5" Amiga síim külső dirve 
Roctec 3,5” Ivory Anti-Vírus Amiga drive 
Roctec 3,5” Black Anti-Vírus Amiga drive 
Roctec 3,5” Amiga belső drive 
Rochard HD kontroller A500/A500+ 

+ 80 MB Hard Disk 
+ 1 Mbyte SIMM Ram 
Amiga Magazin (német) újság 
Power Play (német) újság 


680 

Ft 

190 

Ft 

360 Ft 

890 

Ft 

1 550 

Ft 

790 

Ft 

) 760 

Ft 

i) 1 090, 



Ft 

' J 690 

Ft 

( 9 990: 

Ft 

5 900 

Ft 

6500 

Ft 

2 500 

h 

2 500 

Ft 

2 990 

Ft 

13 900 

Ft 

1 490 

Ft 

'6 900 

Ft 

(F3 590 

Ft 

18 900 

Ft 

26 900 

Ft 

9 900 

Ft 

i 24 900 

Ft 

9 490 
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Áraink az 1 év garanciát és az ÁFA-t tartalmazzák! 


Július elején címünk megváltozik: 

1135 Budapest, Szent László u. 74/A. Telefon: 149-6165 

Üzletünk megnyitása alkalmából szenzációs árengedményekkel kedveskedünk vásárlóinknak 










